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PIEFACE 


This  report  describes  the  Bodelins  of  airborne  contaninant 
transport  and  its  infiltration  into  and  dispersion  vithin  a  pressurized 
chaaber  with  a  fabric  cover.  The  airflow  is  assnned  to  be  turbulent. 
The  work  reported  here  is  part  of  a  larger  study  involving  the 
development  of  experinental  techniques  as  well  as  cor^utational  tools 
that  can  be  used  to  design  fabric  structures  to  provide  a  safe  internal 
environnent  when  the  external  enviroment  is  contaainated. 
Computationally,  the  two  issues  aost  difficult  to  deal  with  are:  1.  Hov 
auch  contaminant  is  deposited  on  a  structure  in  a  contaainated 
environnent  and  hov  is  it  distributed  over  the  structure,  and  2.  Hov  is 
the  contaainant  transported  throug^i  the  fabric  that  is  the  interface 
between  the  internal  and  external  environnent s.  The  coaputational 

_ a.  J _ 1  At _ _ _ _ _  _ ^  _ _ _ a*  _ 


analyses  of  the  external  tlov,  internal  flow,  and  transport  through  the 
fabric.  The  work  reported  took  place  fr(»  January  1990  to  December 
1990.  It  was  funded  under  Contract  No.  DAAK60-92-R001 . 


Thanks  are  due  to  Mr.  John  Calligeros  who,  as  director  of  Natick’s 
ineering  Technology  Division,  has  been  aost  supportive  of  this  work 
to  Dr.  Louis  Piscitelle  and  Dr.  Earl  Steeves  for  the  many  useful 
discussions  ve  had  and  for  their  suggestions.  Thanks  also  to  Mr.  Gary 
Vincens  and  Mr.  lyle  Welch  for  the  experimental  data  they  provided. 
Finally,  thanks  to  Ms.  Marcia  lightbody  for  editing  the  report  and 
thereby  greatly  improving  it. 


vll 


An  Aa^^mmetric,  Tnzbidait  flow  Analysu  of  Contandnaat 
Infiltration  into  n  Piemriaed  Strnctme  with  a  Fabric  Bndnap 

INTRODUCTION 

The  problem  of  contaminant  infiltration  and  dispersal  within  pressurized  fabric 
structures  is  highly  complex.  The  level  of  contamination  on  the  exterior  of  the  fabric  could 
be  assumed  as  a  boundary  condition.  This  approach  is  not  satisfactory,  since  the  way 
airborne  contaminants  will  be  distributed  over  the  exterior  of  a  structure  is  highly 
dependent  on  the  nature  of  the  external  flow,  which  depends  on  the  geometry  of  the 
structure  in  question.  The  analysis  reported  here  considers  the  problem  as  a  whole,  not 
separating  the  external  from  the  internal  flow.  Because  of  this  approach,  the  distribution 
of  contaminant  on  the  exterior  of  the  structure  is  determined  automatically  as  part  of  the 
solution  process  and  need  not  be  specified  a  priori.  The  development  of  the  axisymmetric 
model  for  the  study  of  the  infiltration  of  airborne  contaminants  into  a  fabric-covered 
chamber,  pressurized  with  uncontaminated  air,  is  discussed  in  detail.  This  particular 
configuration  was  chosen  because  an  experimental  model  could  be  easily  developed  for  it. 
The  external  flow  is  assumed  to  be  turbulent.  The  Navier-Stokes  equations  govern  the 
velocity  field  and  the  mass  transport  equation  governs  the  distribution  of  contaminant. 

Two  equations  are  used  to  model  the  effect  of  turbulence,  an  equation  for  the  transport  of 
the  turbulent  kinetic  energy  and  an  equation  for  the  dissipation  of  turbulent  kinetic  energy. 
These  two  equations  are  semiempirical.  The  presence  of  contaminant  is  assumed  not  to 
affect  the  velocity  field.  Thus,  the  contaminant  transport  equation  is  solved  after  the 
solution  for  the  flow  field  is  accomplished.  The  fabric  is  modeled  using  an  empirically 
derived  rdation  between  pressure  drop  across  the  fabric  and  the  velocity  through  the 
fabric. 

The  equations  are  solved  numerically  using  a  control  volume,  finite  difference 


method.  To  permit  the  use  of  a  relatively  coarse  mesh,  a  two-eqoation  model  of 
turbulence  is  used  in  conjunction  with  the  Navier-Stokes  equations. 

The  organization  of  this  report  is  as  follows.  The  Navier-Stokes  equations  are  i^ven 
along  with  the  associated  boundary  conditions.  The  model  for  the  fabric  is  introduced. 
Next,  the  two-equation  model  for  turbulence  is  introduced  with  the  associated  boundary 
conditions.  Turbulence  is  primarily  generated  in  the  very  thin  boundary  layers  along  walls. 
It  order  to  avoid  the  need  for  very  fine  grid  spacing  next  to  walls,  the  wall  function 
method,  which  approximates  the  velocity  profile  in  the  boundary  layer,  is  introduced  and 
discussed  in  detail.  Next,  the  mass  transport  equation  for  the  contaminant  is  introduced 
with  its  boundary  conditions,  followed  by  discusfflon  of  the  contrcfi  volume  finite  difference 
technique  used  to  solve  the  equations.  To  validate  this  approach,  the  problem  for 
turbulent  flow  through  a  circular  pipe  is  analyzed.  There  have  been  numerous 
experimental  and  numerical  studies  of  this  problem.  The  approach  is  then  applied  to  the 
problem  at  hand.  The  results  of  various  cases  and  their  relation  to  experimental  work 
conclude  the  main  body  of  the  report.  Details  concerning  the  software  developed  to 
perform  this  study  are  given  in  the  Appendices  A— H. 

GOVERNING  EQUATIONS 

Turbulent  flow  is  treated  as  a  statistical  process.  The  instantaneous  velocity 
components  9re  taken  as  the  sum  of  a  mean  velocity  component  and  a  fluctuating  turbulent 
velocity  component.  Thus, 

A 

U  =  u  +  u 
V  =  V  +  V 

wh^  u  and  v  are  the  mean  components,  which  can  be  considered  as  averaged  over  an 
interval  of  time  at  a  point  in  space  for  steady-state  problems  or  as  an  ensemble  average  at 

A  A 

a  point  in  space  for  transient  problems,  u  and  v  are  the  randomly  fluctuating  turbulent 
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velocity  components.  The  mean  components  are  governed  by  the  Navier-Stokes  equations. 
These  equations  contain  products  of  the  fluctuating  components,  which  are  called  Reynolds 
stresses.  The  Re3molds  stresses  cannot  be  determined  analytically  so  empirical  models  are 
used.  These  models  fall  under  the  name  of  mixing  length  models.  Their  ultimate  purpose 
is  to  develop  a  turbulent  viscosity  coefficient  by  way  of  analogy  to  the  laminar  viscosity 
coefficient  in  order  to  account  for  the  loss  of  energy  that  occurs  in  the  formation  of 
turbulence.  There  are  various  mixing  length  models,  one  of  the  most  robust  being  the 
two-equation  or  K-e  model.  The  turbulent  a}mponents  are  used  to  define  the  turbulent 
kinetic  energy  and  the  turbulent  energy  dissipation  function  in  the  two-equation  model. 
This  semiempirical  approach  leads  to  closure  of  an  otherwise  intractable  problem  and 
permits  the  numerical  solution  of  many  interesting  problems. 

Navier-Stokes  Equations 

The  governing  equations  for  the  mean  velocity  components  are  obtained  by  averaging 
the  equations  for  instantaneous  velocity  components  and  result  in  equations  directly 
analogous  to  those  for  laminar  flow.  For  axisymmetric  problems,  the  Navier-Stokes 
equations  are,  for  the  radial  direction. 


and  for  the  axial  direc  iion, 

where  u  is  the  mean  radial  velocity,  v  the  mean  axial  velocity,  and  the  source 
terms  which  are  used  to  account  for  loss  of  momentum  (pressure  drop)  through  porous 
media  and  +  is  the  effective  viscosity  that  includes  the  effect  of  turbulent 

energy  dissipation:  /i  is  the  laminar  viscosity  and  is  the  turbulent  viscosity. 
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The  tuibulent  viscosity  is  an  empirical  concept  used  to  account  for  the  work  done  in  the 
creation  of  turbulence  and  its  dissipation.  This  form  for  the  equations  does  not  invoke  the 
continuity  equation  which  is  used  by  the  numerical  algorithm  to  develop  a  pressure 
equation.  The  continuity  equation  for  incompressible  flow  can  be  written  as 

(3)  +  ^(/^)  =  0  . 

The  boundary  conditions  are  normal  to  a  solid  boundary 

(4)  u-n  =  0  , 

tangential  to  a  solid  boundary 

(5)  u-t  =  0  , 

at  an  inflow  boundary 

(6)  u  is  specified  , 
and  at  an  outflow  boundary 

(7)  u  is  unspecified  . 

In  the  numerical  model  wall  functions  are  used  for  velocities  at  nodes  adjacent  to  walls. 
This  will  be  discussed  in  detail  later. 

Fabric  Model 

The  fabric  model  is  based  on  the  work  of  Armour  and  Cannon  [1].  The  equation  is 
the  sum  of  two  terms,  one  linear  in  the  velocity  and  the  other  the  square  of  the  velocity. 
The  linear  term  accounts  for  viscous  drag  and  the  square  term  for  turbulent  dissipation. 
The  coefficients  in  this  empirically  determined  relation  depend  on  the  generic 
characteristics  of  woven  fabric:  the  void  fraction,  surface-area-^o— volume  ratio,  effective 
pore  diameter,  effective  thickness,  and  the  viscoaty  and  density  of  the  fluid.  The  source 
terms  in  the  Navier-Stokes  equations  (1)  and  (2)  are  S^=  0  and  8^=  0  in  the  air  and 
are  for  the  fabric 

(8) 
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and 

where  the  viscous  flow  resistance  coefficient  a  =  8.61  and  the  turbulent  energy  dissipation 
coefficient  0  =  0.52.  D  is  the  pore  diameter,  A  the  surface-area-to-volume  ratio,  and 
e  is  the  void  fraction.  These  expressions  represent  the  pressure  drop  that  would  occur 
across  the  fabric  for  steady,  uniform  flow. 

Two-Equation  Tnibnlenoe  Modd 


The  Navier-Stokes  equations  used  here  are  for  the  mean  velocity  components.  The 
effect  of  turbulence  is  accounted  for  by  adding  to  the  actual  viscosity  a  turbulent  viscosity 
that  represents  the  effect  of  energy  loss  in  the  creation  of  turbulence.  A  mechanical  energy 
equation,  or  equation  for  the  transport  of  turbulent  kinetic  energy,  is  found  by  taking  the 

A 

momentum  equation  for  the  r-direction  and  multiplying  by  u  and  the  equation  for  the 

A 

2-direction  and  multiplying  by  v.  After  we  take  the  average  of  each  resulting  equation 
and  invoke  continuity,  the  resultiiig  equations  are  added  to  obtain  the  desired  transport 
equation  (see  any  text  on  turbulent  flow,  e.g.  [2]).  Half  the  mean  square  turbulent  velocity 
is  given  by. 


(10) 


where  u  and  v  are  the  randomly  fluctuating  turbulent  velocity  components.  The 
turbulent  kinetic  energy  is  ^K.  The  equation  for  the  turbulent  kinetic  energy  is  [2,3,4] 

(11)  +  4 +  jkgK]  +  G  -  « 

W  tJf  “sr  +3S  “TF 

V  ^  K  ^ 

where  is  turbulent  kinetic  energy  generation  term  given  by 

(12)  Ok  =  +  (V  +  ",/> 

where  is  the  turbulent  viscosity  which  is  given  by  the  empirical  rdation 

(13)  . 

In  these  relations  the  variable  e  is  the  rate  of  dissipation  of  turbulent  kinetic  energy  and 
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The  dissipation  rate  e  can  be  treated  like  any  property  that  is  transported  by  the  flow  so 
the  governing  transport  equation  for  e  is 


(1*) 


r^F 


im 


®aF 


.  C,G.  e  C«e 


The  constants  ,  C2  ,  and  are  empirical.  The  diffusion  coefficients  and 
take  different  forms  depending  on  the  nature  of  the  flow  [4].  For  high  Reyncdds  number 
flow 


(16)  Fj^  =  and  F^  =  ftja^ 
and  for  low  Reynolds  number  flow 

(17)  =  /i  +  Vk  “d  Fg  =  M  +  /it/<^e 

where  and  tr^  are  effective  turbulent  Prandtl  numbers  for  the  two  transport 
processes. 

The  conditions  for  certain  tjrpes  of  boundaries  are  treated  in  an  ad  hoc,  but 
intuitively  satisfactory  way;  on  others  they  are  based  on  experimental  results,  and  on 
others  by  semiempirical  models  called  wall  functions.  The  first  two  are  presented  in  this 
section  while  wall  functions  are  dealt  with  in  a  separate  section. 

On  symmetry  boundaries  the  normal  derivatives  vanish 

(18)  dK/da  =  0  and  de/da  =  0  . 

At  an  outlet  the  normal  derivatives  vanish 

(19)  dK/da  -  0  and  de/da  s:  0  . 

At  an  inlet  the  turbulent  kinetic  energy  is  taken  to  be  some  fraction  of  the  average  kinetic 
energy 

(20)  K  =  cu*u 

where,  for  example,  in  the  case  of  flow  in  a  circular  pipe  c  =  0.005  [5]. 
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The  rate  of  dissipation  is  taken  to  be  of  the  form 

(21)  e  = 

where  I  is  Prandtl’s  turbulent  mixing  length  [6,7]  and,  for  example,  I  =  0.03R  for  a  pipe 
with  outer  radius  R  [5]. 

At  a  wall,  it  is  recommended  that  [4] 

(22)  aK/Ai  =  0  . 

This  is  reasonable  since  there  is  no  energy  flux  through  a  wall.  The  rate  of  dissipation  e 
at  a  wall  is  treated  with  wall  functions. 

Wan  Functions 

In  theory,  it  is  possible  to  numerically  model  the  flow  field  next  to  the  wall  without 
resorting  to  any  special  methods.  Practically,  however,  it  is  not  desirable  to  treat 
boundary  layers  in  great  detail,  because  this  would  require  a  very  fine  mesh  indeed.  This  is 
because  the  nature  of  the  flow  changes  so  dramatically  from  laminar  adjacent  to  the  wall, 
to  transition  and  then  to  turbulent  in  a  very  short  distance.  Jones  and  Launder  [6],  for 
example,  used  almost  100  nodes  in  the  boundary  layer  to  modd  turbulent  flow  through  a 
pipe.  In  order  to  alleviate  the  need  for  such  refinement,  when  the  full  details  of  the 
boundary  layer  are  not  required,  a  semiempirical  method  called  the  wall  function  technique 
was  developed  [4,5,7]  and  applied  successfully  to  several  interesting  problems.  The  method 
makes  certain  assumptions  about  the  nature  of  the  flow  in  the  boundary  layer  and  is  thus 
not  strictly  applicable  to  situations  where  those  assumptions  are  violated.  The  concept 
could,  however,  be  extended.  In  addition  to  the  assumptions  about  the  flow  in  the 
boundary  layer,  empirical  results  are  used  to  determine  appropriate  constants.  Thus,  the 
method  is  semiempirical. 

The  process  is  based  on  the  premise  that  because  the  boundary  layer  is  so  thin  in  the 
neighborhood  of  the  wall,  the  velocity  profile  for  many  walls  will  not  be  significantly 
different  from  the  profile  near  the  wall  for  turbulent  pipe  flow.  The  problem  of  turbulent 
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pipe  flow  is  well  understood  and  there  is  a  welhestaUished  body  of  theoretical  and 
experimental  work  for  it.  Using  these  results  an  empirical  model  of  the  behavior  of  flow  in 
the  boundary  layer  can  be  simply  quantified,  thereby  obviating  the  need  to  model  the 
boundary  layer  in  detail.  The  use  of  this  model  for  flow  near  the  wall  yidds  appropriate 
boundary  conditions  and  source  terms  for  the  momentum,  energy  and  dissipation 
equations. 

In  developing  the  model  for  flow  near  the  wall,  assumptions  need  to  be  made.  The 
first  assumption  is  that  flow  in  the  boundary  layer  is  planar,  or  nearly  so.  The  second 
assumption  is  that  the  flow  can  be  modeled  using  the  assumptions  of  Couette  flow.  This 
classical  viscous  flow  problem  models  the  flow  between  two  parallel  plates,  one  fixed  and 
the  other  moving  with  constant  velocity.  The  next  assumption  is  that  PrandtPs  mixing 
length  hypothesis  holds[4,7,8]  for  points  far  enough  away  from  the  wall  such  that  they  are 
in  the  fully  turbulent  region: 

(23)  f=icY, 

where  I  is  the  mixing  length  k  is  von  Karman’s  constant  and  Y  is  the  normal  distance 
from  the  wall  to  a  point  in  the  turbulent  part  of  the  boundary  layer.  The  effective 
viscosity  is  related  to  the  gradient  of  the  tangential  velocity  by 

(24)  ^eff=^  +  ^|3Y|  ’ 

where  U  is  the  tangential  velocity.  Further,  for  high  vdodty  gradients  n  is  small 
compared  to  the  second  term,  so 

(25)  ^eff-^'^^ldY)  ’ 

It  is  farther  assumed  that  the  pressure  gradient  in  the  boundary  layer  is  negligible  and  that 
there  is  negligible  mass  flux.  Also,  physical  properties  are  assumed  to  be  constant  and,  as 
is  usually  done  [2,8]  in  developing  the  law  of  the  wall,  the  flow  is  taken  to  be  in  the  positive 
direction.  With  these  conditions  the  momentum  equations  show  that 

(26)  =  V  ‘ 
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where  r  is  the  shear  stress  in  the  boundary  laj^  and  is  the  shear  stress  on  the  wall, 
i.e.,  the  shear  stress  is  uniform  in  the  boundary  lajrer.  Since, 

m  T  =  MegdO/dY  , 

using  eqs.  (25)  and  (26)  yields 


(28) 


=  ,A2 


dU 

37 


dU 
37  • 


This  can  be  written  as 


(29) 


dU 

37= 


which  can  be  integrated  directly.  However,  it  is  usual  to  introduce  some  nondimensional 
variables  first.  Thus,  define 


(30)  Y=|^Y//i^ 

(31)  = 

which  is  called  the  friction  velocity,  and 

(32)  U*  =  U/Uf  . 
Using  eqs.  (30)-{32)  in  eq.  (29)  yields 


(33) 


dU  ^  1 
d?  ^ 


which  can  be  integrated  to  give 

(34)  U*  =  /rhn(EY*)  , 

where  E  is  a  constant  of  integration.  Von  Karman’s  constant  k  and  the  "wall 

roughness"  constant  E  are  empirically  determined.  Eq.  (34)  is  called  the  logarithmic  law  of 

the  wall.  Substitution  of  Eqs.  (30)  -  (32)  into  eq.  (34)  shows  that  the  wall  stress  appears 

on  both  sides  of  the  equation,  thus  giving  a  transcendental  equation  for  [8].  If  all  the 

above  assumptions  apply,  then  the  the  rate  of  turbulent  energy  generation  and  the  rate  of 

turbulent  energy  dissipation  in  the  boundary  layer  are  in  balance.  This  balance  has  bemi 

demonstrated  experimentally  [2,8]  and  implies  for  the  case  of  uniform  shear  stress  in  the 

boundary  layer  that 
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(3S)  rjf  =  C* /*K  =  constant  . 

Therefore,  Y*  =  />C  ‘  .  Since  (r,//>)‘/*  =  (rJp)l(Tjp)^l^  eqi.  (31).  (32). 


(34),  and  (35)  combine  to  give 

r,  =  ^y^Kl/*/tO/In(EY*)  . 

* 

This  wall  law  is  used  if  11.5  <  Y  <  30.0  and  Newton’s  law  with  laminar  viscosity  is  used 
* 

if  Y  <  11.5  .  The  lower  limit  is  obtained  by  the  requirement  that  the  velocity  in  the 
laminar  (linear)  sublayer  match  the  vdodty  in  the  logarithmic  layer.  The  upper  limit  is 
obtained  from  the  requirement  that  the  velocity  in  the  logarithmic  layer  match  the  power 
law  profile  for  the  turbulent  core,  obtained  from  empirical  results  for  pipe  flow,  to  a  high 
degree  of  accuracy.  These  limits  can  vary  somewhat  depending  on  the  magnitude  of  the 
Reynolds  number.  The  values  chosen,  however,  cover  a  wide  range  of  flows  and  have  been 
recommended  by  Launder  and  Spalding  [4,7].  In  summary,  for  a  point  p  in  the  boundary 
layer 


(36a) 

(36b) 

with 


=  (iCy  /lii(EY*)  11.5  SY*<  30.0  . 

=  K<«J/dY)p  Y*  <  11.5  , 


(37)  Y*  =  pCy*¥>IS^p  . 

In  a  numerical  model,  therefore,  it  is  desirable  to  have  the  first  node  adjacent  to  the 
* 

wall  such  that  11.5  <  Y  <  30.0  ,  if  the  flow  is  indeed  turbulent.  This  requires  trial  and 
error  since  K  is  not  known  a  priori. 

In  the  turbulent  energy  equation  (11)  the  source  term  is  comprised  of  two  parts, 

^  ^  fundamental  rdation  for  G|^  in 

terms  of  shear  stress  is  velocity  gradient  is  large  in 

the  boundary  layer  gives  As  a  result  ^  =  r^/idV/dY)^  can  be  used  in  the 

expression  for  e  .  Thus  the  source  term  for  the  turbulent  kinetic  energy  equation  (11)  for 
points  in  the  boundary  layer  is 
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(38)  Sg  =  (r^  -  vV/r,)(dU/dY)p  . 

For  the  dissipalioii  equation,  the  auomption  that  e  a  K^'^/i  leada  to  the  eapieaaion 
m  ej  =  . 

for  points  in  the  turbulent  part  of  the  boundary  layer.  Thus,  instead  of  a  boundary 
condition  being  specified  for  e  on  a  wall,  eq.  (39)  is  used  to  fix  the  value  of  e  at  a  point 
near  the  wall. 

These  results  will  be  incorporated  into  the  numerical  modd  later  on. 

ICasi  Transport  Equation 

As  is  well  known,  different  quantities  have  different  rates  of  diffusion.  In  turbulent 
flow  the  process  of  diffusion  is  augmented  and  often  overwhdmed  by  turbulent  mixing. 
Thus,  the  usual  practice  to  account  for  this  effect  has  been  to  add  a  turbulent  diffusion 
term  to  the  molecular  diffusion  term.  For  example,  as  was  stated  earlier, 

{n  +  ti^)da/dy  where  accounts  for  the  turbulent  contribution  to  viscosity.  This  is 
often  written  as  s  where  is  called  the  eddy  viscosity  or  eddy  diffhsivity  of 
momentum.  By  Reynolds  analogy,  it  is  expected  that  the  diffusion  of  other  quantities  such 
as  heat,  mass,  etc.  would  behave  similarly  [2].  In  fact,  just  such  an  assumption  is  made  in 
the  turbulent  kinetic  energy  and  kinetic  energy  dissipation  equations.  For  mass  diffusion  in 
laminar  flow,  Fick’s  Law  states  that  M  =  -ijdCldy  where  M  is  the  mass  flux  per  unit 
area,  C  is  the  mass  concentration  and  ri  is  the  diffusion  coefiBdent.  By  analogy,  for 
turbulent  flow  this  would  be 

« - =  -(’'+  ■ 

The  ratio  of  eddy  diffusivity  of  momentum  to  eddy  mass  diffusivity  is  called  the  turbulent 
Schmidt  number 

(40)  SC^  =  €j€^  . 

When  Sc^  =  1.0  this  is  called  Reynolds  analogy.  Launder  and  Spalding  [7]  recommend 
using  Sc^  =  0.7  .  Whatever  value  is  picked,  since  =  <jj|/Sc^  =  M^/pSc^  , 
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the  effective  mass  diffosioii  coeffident  is  given  by 

(41)  *?  +  Mt/pSc^  • 

More  details  can  be  found  in  Reynolds’  book  [2].  For  the  fabric,  the  laminar  diffusion 
coeffident  rf  is  found  by  using  the  Tsai-Halpin  equation  [0]  as  fidlows: 

(«)  '»w,ric  =  (1  +  -■'Vf) . 

where 


^  (’^fibcr  ’^air^^^^ber  *^air^ 
and  V£  =  1  —  e  is  the  volume  fraction  of  fiber. 

More  details  can  be  found  in  Reynolds  book  [2]. 


The  governing  equation  for  mass  transport  is 
(43)  |C)  ^  i|™c)  ^  ^  ^  . 

The  boundary  conditions  are  dther 


(44) 

C  specified 

or 

(45) 

ac/ai=:0 

at  a  wall  or  a  symmetry  boundary.  In  this  case  wall  functions  are  not  used  since  these  are 
used  only  to  obtain  a  representation  of  the  shear  stress  at  the  wall. 


In  summary  the  governing  equations  are  the  Navier— Stokes  equations  for  the  vdouty 


components  u  and  v. 


W 


r^F 


S 


r 


d  (^)  .  Id  (rpuv)  ,  d  (pw)  _  Id 
3t  +  rJF  S  -  rS 
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the  continuity  equation  for  incompreiable  flow, 


=  0  • 

tdC  OT 

the  equations  for  turbulent  kinetic  energy  and  turbulent  dissipation, 


d{pK)  IdimK)  d{pyK)  _  Id 
^  ^rS  ^2IE  -Tdi 


rr.aK 


d{pe)  .  Id  (rpue)  .  d{frre)  ^  Id 
^  rZF  ^  S  r3E 


rr  de 
®dF 


N 


r.dK 


+  G.  “pe 


,  C,G.  e  C«e 


and  the  mass  transport  equation  for  the  contaminant 

Generic  Field  Equation 


Examination  of  the  governing  equations  shows,  with  the  exception  of  the  continuity 
equation,  they  are  of  the  general  form 
(46)  7-(p^  =  7.(r7^)  +  S  . 

This  general  form  was  used  in  the  development  of  the  SEifPLER  algorithm  [10]  which  is 
used  to  perform  the  numerical  analsrsis  discussed  in  the  next  section.  The  continuity 
equation  is  used  in  the  SIMPLER  approach  to  obtain  both  a  pressure  and  a  pressure 
correction  equation  the  details  of  which  are  given  in  [10] .  The  pressure  equation  and  the 
pressure  correction  equation  are  buried  in  the  code  and  are  "invisible"  to  the  user. 


MODELING  CONSIDERATIONS 
Inoorpoiation  of  Turbulenoe  into  the  SIMPLER  Alggrithm 

The  SIMPLER  algorithm  as  developed  by  Patankar  [10]  for  laminar  flows  is  modified 
to  accommodate  the  two-equation  model  of  turbulence.  Both  the  turbulent  kinetic  energy 
equation  (11)  and  the  dissipation  of  turbulent  energy  equation  (15)  have  the  form  of  the 
generic  equation  (46).  The  code  that  is  used  is  described  in  an  earlier  report  by  Robertson 
[11].  The  code  is  designed  to  solve  the  momentum  equations,  the  pressure  equation,  and 
the  pressure  correction  equation,  plus  any  number  of  additional  equations  that  have  the 
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form  of  the  generic  equation.  The  pressure  and  pressure  correction  equation  are  obtained 
from  the  continuity  equation,  the  details  of  which  can  be  found  in  [10].  These  are  hidden 
from  the  user  in  the  code.  Additional  equations  can  be  solved  along  with  the  flow 
equations  if  they  are  coupled  to  the  velocity  field,  as  is  the  case  with  the  two  equations 
used  to  model  turbulence,  or  they  can  be  solved  separately  after  the  flow  field  is 
determined,  as  is  the  case  with  the  mass  transport  equation  for  the  case  of  low 
concentrations.  Some  modification  of  the  code  is  required  to  achieve  this.  The  first 
modification  is  to  force  the  code  to  solve  the  two  equations  used  to  describe  turbulence 
iteratively  along  with  the  flow  equations.  The  second  modification  is  to  incorporate  the 
wall  function  technique  for  modeling  boundary  layer  effects.  No  special  changes  to  the 
code  are  required  to  solve  the  mass  transport  equation. 

The  code  is  broken  into  two  main  parts;  the  solution  engine  and  the  driver.  The 
solution  engine  is,  for  practical  purposes,  a  black  box  and  once  set  up  needs  not  be 
modified.  The  driver  is  a  set  of  user->devdoped  routines  that  describe  the  numerical 
problem  to  be  solved  and  control  the  solution  scheme.  The  driver  communicates  to  the 
engine  through  COMMON  blocks.  Originally,  to  save  storage  the  code  made  extensive  use 
of  high  speed  storage  for  the  various  arrays  used  by  the  code.  The  use  of  high  speed 
storage  has  been  completely  eliminated  and  the  code  now  nms  in  core,  which  has  sped  up 
the  solutimi  process  considerably.  To  incorporate  turbulence  only  two  changes  were  made 
to  the  engine.  These  are  CALL  statements  to  ENTRY  locations  in  the  driver  for 
computing  the  generation  term  and  to  use  the  wall  functions  describing  boundary 
layer  effects.  The  required  numerical  expressions  for  the  wall  functions  and  G|^  are 
devdoped  here.  The  changes  to  the  code  are  detailed  in  Appendix  A.  The  driver  has  the 
same  general  form  as  reported  earlier  [11],  but  to  incorporate  turbulence  effects  several 
major  additions  were  required.  The  numerical  expressions  that  must  be  added  are  given 
here  and  the  coding  details  appear  in  Appendix  B.  Note  that  in  the  code  the  axial 
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axial  direction  is  x  and  the  radial  direction  is  y  while  the  axial  velocity  is  n  and  the 
radial  velocity  is  v. 

The  SIMPLER  algorithm  uses  a  staggered  grid  approach,  as  shown  in  Figure  1.  Main 
grid  points  are  defined  by  the  user.  Around  each  grid  point  the  code  sets  up  a  control 
volume.  All  scalar  variables  and  all  properties  are  located  at  these  main  grid  points,  i.e., 
temperature,  pressure,  concentration,  density,  viscosity,  etc.  Velocity  components  are 
located  on  the  faces  normal  to  thdr  flow  direction.  This  leads  to  two  additional  sets  of 
control  volumes,  one  for  each  component.  This  rather  awkward  construction  has  important 
consequences  for  the  stability  and  convergence  of  the  algorithm  [10].  So  what  is  lost  in 
terms  of  convenience  is  gained  in  performance.  This  grid  staggering  requires  a  significant 
amount  of  interpolation  when  moving  variables  and  properties  back  and  forth  from  the 
momentum  to  scalar  equations.  Additionally,  source  terms  are  not  always  incorporated  in 
what  would  appear  to  be  the  "obvious"  way,  again,  to  improve  convergence.  The  changes 
required  for  each  equation  will  be  taken  in  turn  starting  with  the  velocity  equations.  The 
solution  scheme  is  iterative  so  values  from  the  previous  step  are  used  in  the  present  step. 
Vdodty  Equations 

The  turbulent  viscosity  is  given  by  eq.  (13).  In  the  code  this  is  defined  in  the 
driver  at  ENTRY  DENSE  and  has  the  form, 

(47)  AMUT(I,J)  =  CD*RHO*TKE(I,J)**2/TED(I,J)  , 

where  AMUT  =  TKE  =  K  ,  and  TED  =  e  .  The  effective  viscosity  is  defined 
at  ENTRY  GAMSOR  for  the  velocity  components  and  has  the  form 

(48)  GAM(I,J)  =  AMU  +  AMUT(I,J)  , 

where  AMU  =  and  GAM  =  The  effect  of  walls  on  the  velocity  equations  requires 
modification  to  the  coefficients  in  the  finite  difference  expressions.  The  effect  of  a  wall  on 
the  "north"  side  of  a  control  volume  will  be  detailed. 
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Figure  la.  The  locations  where  u  and  v  are  evaluated, 
•  aain  grid  nodes,  »  u- nodes,  and  □  v- nodes. 
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Figure  lb.  Typical  control  voluaes;  CV  1  scalars,  CV  2  u, 
GV  3  V  boundary,  CV  4  v,  and  CV  5  u  boundary. 
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Figtue  2  shows  the  control  volume  for  the  u  —  vdodty  component  at  a  wall  on  the 
north  face.  The  governing  equations  all  have  the  form  of  the  generic  equation  [46]  and  so 
their  finite  difference  forms  will  be  similar.  For  the  u— velocity  component  the  form  of  the 
finite  difference  equation  [10]  is 

(49)  apttp  =  +  a^a„  +  a„u„  +  a,a,  +  +  S^)AxAy  _ 

where  the  a’s  are  the  finite  difference  coefficients  and  u^  =  u^j  is  the  unknown  value. 

is  the  constant  part  of  the  source  term  and  is  the  linear  part.  The  a’s  are 
essentially  force  contributions  averaged  over  control  volume  faces  and 

(50)  »p  =  »e  +  *w  +  +  »8  +  ( -  Sp)AaAy 

The  expression  that  is  obtained  for  a^  in  developing  the  finite  difference  equations  for 
laminar  flow  is 

(51)  aj^  =  MAA/Ay  , 

where  AA  is  the  area  of  the  north  face  and  Ay  is  the  distance  from  the  wall  to  node  p  . 
Even  though  ===  0  at  the  wall  there  is  a  contribution  to  the  coefficient  of  u^  that 
accounts  for  the  drag  due  to  the  wall.  This  coefficient  must  be  modified  to  account  for 
turbulent  boundary  layer  flow.  Referring  to  eq.  (37), 

(52)  Y*  =  pC  ’ /4k4/^  Ay/p  . 
and  referring  to  eqs.  (36a  k  b), 

(53a)  r,  =  (<cpC^/4gl/2^^gy»)]p^  ,,  5  <  y*  <  30  , 

(53b)  =  /<Up/Ay  Y*  <  11.5  . 

Thus  a.  becomes 
n 

(54)  ap  =  AA/Bp  . 

By  using  equations  (52)  to  (54)  the  appropriate  expressions  to  use  in  the  code  can  be 
obtained. 

The  first  application  is  to  turbulent  flow  in  the  pipe  so  the  use  of  the  above 
methodology  will  be  illustrated  with  reference  to  the  driver  for  this  problem  in 
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Figure  2.  U  -  control  volune  on  a  north  boundary  or  wall 
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Appendix  B.  The  ratio  of  wall  stress  to  velocity  is  calculated  at  each  point  along  the  wall. 
It  is  called  TAUN(I)  and  is  calculated  in  the  driver  at  ENTRY  BOUND  as  follows:  Let 
DIST  =  AY 
CD25  = 

RHOCON  =  p 
TKE=  K 
PLUN  =  Y* 

TAUN  =  r^/Up 
CAPPA  =  K 
EGON  =  K 

then 

DIST  =  Y(M1)-Y(M2) 

CT  =  CD25*DIST 

RK  =  RHOCON*SQRT(ABS(TKE(I,M2))) 

PLUN(I)  =  RK*CT/AMU 
IF  (PLUN(I)  .GT.  11.5)  THEN 
EPLUN  =  ECON*PLUN(I) 

TAUN(I)  =  CAPPA*RK*CD25/DLOG(EPLUN) 

ELSE 

TAUN(D  =  AMU/DIST 
ENDIF  . 

As  mentioned  earlier,  it  is  desirable  to  have  Y  (  PLUN(I) )  between  11.5  and  30  but  since 
it  depends  on  K  (  TKE(I,J) )  trial  and  error  is  necessary  to  have  the  first  node  next  to 
the  wall  properly  located.  Having  calculated  TAUN  at  all  the  grid  points  along  the  wall, 
we  can  apply  the  wall  function  method  to  the  various  equations.  The  value  of  TAUN  is 
calculated  at  the  main  grid  points  and  must  be  interpolated  to  find  the  value  at  the 
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vdodty  grid  points.  The  value  of  for  the  u  —  equation  (49)  is  calculated  in  the  driver 
at  ENTRY  WALL  asfoUows, 

AJP(I,M2)  =  (TAUN(I-1)*FXM(I)  +  TAUN(I)*FX(I))*XDIF(I)*Y(M1) . 
where  FXM  and  FX  are  interpolants  derived  in  the  main  part  of  the  code.  They  are 
defined  in  Appendix  A.  Since  Y(M1)  is  the  radius  of  the  pipe,  XDIF(I)’'‘Y(M1)  is  AA. 
Tarbnlent  Energy 

The  diffusion  coefGdent  for  the  turbulent  energy  equation  is  given  by  eq.  (17)  and  is 
calculated  in  the  driver  at  ENTRY  GAMSOR  as 

=  GAM(I,J)  =  AMU  +  AMUT(I,J)/PRTKE  , 

where  PRTKE  =  . 

It  is  necessary  to  determine  the  turbulent  energy  generation  function  Gj^  given  by 
eq.  (12)  by  appropriately  evaluating  the  partial  derivatives  interpolated  to  the  main  grid 
points.  Referring  to  Figure  3,  the  following  calculation  is  performed  at  ENTRY 
GRADIENT  in  the  the  driver. 

u  ,  =  UPX  =  (U(I+1,J)  -  U(I,J))/XCV(I) 

V  ,  =  VPY  =  (V(I,J+1)  -  V(I,J))/YCV(J) 
v/r  =  VOR  =  0.5*(V(I,J+1)  +  V(I,J))/Y(J) 

FACl  =  (YV(J+1)  -  Y(J))/YDIF(J+1) 

FAC2  =  (YV(J)  -  Y(J-1))/YDIF(J) 

UNEC  =  U(I,J)  +  (U(I,J+1)  -U(I,J))*FAC1 
USEC  =  U(I,J-1)  +  (U(I,J)  -  U(I,J-1))*FAC2 
UNWC  =  U(I+1,J)  +  (U(H-1,J+1)  -U(H-1,J))*FAC1 
USWC  =  U(I+1,J-1)  +  (U(I+1,J)  -U(I+1,J-1))*FAC2 
u  ^  =  UPY  =  0.5*(UNEC  -  USEC  +  UNWC  -  USWC)/YCV(J) 
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Figure  3. 


Velocity  coaponents  used  to  calculate  partial 
derivatives  at  the  aain  grid  point  P-  .. 

j 
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V  ^  =  VPX  =  0.5*(V(I+1,J+1)  -  V(I-1,J+1)  +  V(I+1,J)  -  V(I-1,J)) 
/(X(I+1)-X(I-1)) 

=  GK(I,J)  =  AMUT(I,J)*(2  .♦(UPX^UPX  +  VPX*VPX  +  VOR*VOR) 

+  (UPY  +  VPX)**2) . 

UNEC,  USED,  UNWC,  and  USWC  are  the  interpolated  values  of  U  at  the  comers  of  the 
control  volume.  The  source  term  for  the  turbulent  energy  equation  (11)  is  =  G|^  —  pe. 
This  is  rearranged,  according  to  the  procedure  used  by  Pun  and  Spalding  [5],  in  order  to 
improve  convergence  as  follows. 


(55a) 

S^  =  SCj^  +  SP^*K 

where 

(55b) 

SCj^  =  1.5G^  +  (C2  “  1)/* 

and 

(55c) 

SP^  =  -(0.5G^  +  C2pe)/K  . 

This  is  calculated  at  ENTRY  GAMSOR  in  the  driver  where 

CON(I,J)  =  SC^ 

is  the  constant  part  of  the  source  term  and 

AP(I,J)  =  SP^ 

is  the  linear  part.  The  effect  of  the  wall  on  the  turbulent  energy  equation  is  taken  into 
account  through  modification  of  the  source  terms  as  per  eq.  (38).  This  will  be  examined  for 
grid  nodes  next  to  a  north  wall.  Since  eq.  (38)  is  of  the  form  Sj^  = 

fi^daldy)  —  C^p  K  I and  since  =  Up*TAUN(I) ,  the  following  procedure  is  used 
(56a)  SC^  =  T^da/dy  , 

(5«b)  SP^  =  -Cj,(/>^/r^)K«D/«y 

which,  at  ENTRY  GAMSOR,  takes  the  form 
Up  =  UP  =  0.5*(U(I+1,M2)  +  U(I,M2)) 

(att/^)p  =  UPY  =  UP/YDIF(M1) 
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=  TAUNW(I)  =  TAUN(I)*UP 
SCj^  =  CON(I,J)  =  TAUNW(I)*UPY 

SP^  =  AP(I,M2)  =  -CD*RHOCON**2*TKE(I,M2)*UPY/TAUNW(I)  . 

No  special  boundary  conditions  are  used. 

Energy  Disnpatian 

The  diffusion  coefficient  for  the  energy  dissipation  is  given  by  eq.  (17).  This  is 

calculated  in  the  driver  at  ENTRY  GAMSOR  by 

Tg  =  GAM(I,J)  =  AMU  +  AMUT(I,J)/PRTED  , 

where  PRTED  =  . 

e 

From  eq.  (15)}  the  source  term  for  the  turbulent  energy  dissipation  equation  is  S  = 

e 

2 

CiGke/K  —  /K  .  Again,  following  the  treatment  of  Pun  and  Spalding  [5],  this  is 
rewritten  as 

(57a)  Sg  =  SCg  +  SPg*e 

where 

(8Tb)  SCg  =  CjGje/K  +  (C2-l)pe*/K 

and 

(57c)  SPg  =  -<2C2-l)pe/K  . 

This  is  calculated  at  ENTRY  GAMSOR  by  the  following  statements 
e/K  =  TEOK  =  TED(I,J)/TKE(I,J) 

=  RHOTED  =  RHOCON*TED(I,J) 

SCg  =  CON(I,J)  =  (C1*GK(I,J)  +  C2M*RHOTED)*TEOK 
SPg  =  AP(I,J)  =  -TC2M*RHOCON*TEOK  . 

As  mentioned  earlier,  the  effect  of  a  wall  on  this  equation  is  accounted  for  by  forring 
the  value  of  e  for  nodes  next  to  a  wall  to  be  that  defined  by  eq.  (39).  This  is  done  in  the 
driver  at  ENTRY  GAMSOR  by  the  following  two  statements. 
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SCg  =  C0N(I,M2)  =  CD75*ABS(TKE(I,M2)**1.5)*1.E30 
/(CAPPA*YDIF(M1)) 
and 

SPg  =  AP(I,J)  * -1.E30  . 

Goaoaitnikm  EqnitioB 

The  diffusion  coefBdent  for  the  concentration  (mass  transport)  equation  is  giren  by 
eq.  (41).  The  first  numerical  example  does  not  consider  mass  transport  but  the  second  one 
does.  The  concentration  is  assumed  to  be  so  low  that  the  velocity  equations  are  not 
significantly  affected.  Thus,  the  concentration  equation  (43)  is  sdved  after  the  velocity 
fidd  is  determined.  The  code  uses  the  form  of  the  generic  equation  (46)  for  all  variables 
that  obey  the  mass  transport  equation.  It  is,  therefore,  necessary  to  multiply  eq.  (43) 
through  by  p  in  order  to  put  it  in  the  correct  form.  A  separate  driver  is  developed  for  this 
equation  that  merely  reads  in  the  vdodty  fidd  and  solves  only  the  concentration  equation. 
The  diffusion  ooefBdent,  suitably  modified,  is  calculated  at  ENTRY  GAMSOR  by 
^eff  =  GAM(I,J)  =  RHOCON*ETA  +  AMUT(I,J)/PRCON  , 
where  PRCON  =  Sc^  . 

There  are  no  source  terms  in  this  case  and  walls  are  assumed  to  have  no  spedal  effect 
on  the  concentration. 


NUMERICAL  MODELS 

The  values  for  the  various  constants  in  the  two-equation  modd  for  turbulence  are 
those  used  by  Launder  and  Spalding  [7].  These  and  the  values  for  the  von  Kaiman 
constant  k  and  the  wall  roughness  constant  E  in  the  wall  function  nmdd  are,  C^~1.44, 
02=1-92,  C^=0.09,  (r^s:1.30,  Sc^=0.70,  k  =  0.40,  and  E=9.0. 
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Flow  Thnnig^  a  (Sicnlar  Pipe 

This  problem  is  used  to  determine  the  effectiveness  of  the  code  used  here  by 
comparing  results  with  those  of  other  workers.  The  first  problem  examined  is  one 
considered  by  Jones  and  Launder  [6].  They  did  not  use  wall  functions  but,  instead,  used  a 
very  fine  mesh  through  the  boundary  layer  (on  the  order  of  100  nodes).  They  quite 
effectively  modeled  the  experimental  results  of  others.  The  first  two  cases  assume  a  power 
law  distribution  that  fits  the  experimental  data  for  fully  developed  flow  at  the  inlet  and  the 
same  distribution  for  the  initial  vdodty  field  in  the  pipe.  At  first  glance  this  would  appear 
to  be  trivial  but,  it  should  be  noted,  the  pressure  field  is  unknown  so^as  the  analysis 
iterates  to  a  solution,  the  velocity  field  will  in  fact  change  from  iteration  to  iteration  until 
the  pressure  field  stabilizes.  If,  when  the  pressure  field  stabilizes,  the  solution  has 
converged  to  fully  developed  flow  along  the  length  of  the  pipq  then  the  algorithm  for  the 
representation  of  turbulence  can  be  considered  satisfactory.  The  last  case  looks  at 
developing  flow  and  is  compared  with  numerical  results  obtained  by  others. 

Case  1. 

This  first  case  is  for  a  Reynolds  number  of  Re  =  500,000  based  on  the  maximum 
velocity.  The  pipe  has  a  length  of  8.0  and  a  radius  of  0.1.  The  density  is  p  =  1.0,  the 
viscosity  /x  =  0.0001.  The  inlet  velocity  distribution  obeys  a  power  law  giving  a 
distribution  dose  to  the  experimentally  obtained  distribution  of  Laufer  [2,6,12].  This  is 
expressed  by 

"inlet  = 

where  -  250.  The  domain  has  92  axial  grid  points  and  42  radial  grid  points.  The 
spadng  is  uniform  axially  and  is  nonuniform  radially  with  a  power  law  distribution  that 
becomes  finer  doser  to  the  wall  since  the  boundary  layer  is  concentrated  within  1.0%  of  the 
pipe’s  outer  radius.  Fig.  4  shows  the  good  agreement  between  the  model  and  experiment  in 
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the  fully  developed  region  near  the  exit  from  the  pipe.  Fig.  5  shows  the  computed  vdodty 
distribution  near  the  pipe’s  exit.  Clearly,  as  would  be  expected,  it  is  not  parabolic. 

Case  2. 


In  this  case  Reynolds  number  is  Re  ==  50,000  based  on  the  maximum  pipe  vdodty. 
The  problem  specifications  are  the  same  as  for  Case  1  except  that  the  inlet  velocity 
distribution  is  given  by 


®inlet  ^max^^  */^max^  ^ 

where  u^^^  =  25.  No  experimental  results  were  available  for  this  case  but  Reynolds  [2] 
outlines  a  procedure  for  determining  an  empirically  validated  power  law  representation  of 

the  velocity,  which  yields  for  the  folly  devdoped  flow  region, 

u  =  u  (1-r/r  )l/8*229 

max'  '  xtax' 

Fig.  6  shows  that  the  agreement  between  the  code  and  this  expression  is  reasonably  good 
but  slightly  worse  than  for  Case  1.  This  can  be  attributed  to  the  fact  that  the  wall 
function  method  works  best  for  high  Reynolds  numbers. 


This  last  case  considers  a  problem  solved  by  Pun  and  Spalding  [5]  for  a  Reynolds 
number  of  Re  =  100,000.  The  inlet  vdodty  is  taken  to  be  uniform  with  the  value  Uj^  = 
50.  The  density  is  p  =  1.0  and  the  viscosity  is  =  0.0001.  The  pipe’s  length  is  2.0  and 
its  radius  is  0.1 .  The  mesh  is  crude  bang  only  10  X  10  with  equal  spacing  in  both  the 
axial  and  radial  directions.  Because  the  modd  is  short,  the  flow  is  still  devdoping  upon 
exit.  The  mesh  is  the  same  as  used  by  Pun  and  Spalding.  This  example  was  chosen 
because  it  permitted  the  comparison  of  two  computer  codes  that  use  slightly  different 
solution  strat^es  as  well  as  having  been  programmed  by  different  individuals.  Fig.  7 
shows  the  very  dose  agreement  between  the  two  modds. 

The  output  for  Cases  1  and  2  appear  in  Appendix  B. 
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Figure  5 


Velocity  profile  for  fully  developed  flow,  ie  =  500,000. 
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Figure  7.  Turbiilent  pipe  flow  with  Re  =  100,100;  co^>arison 
with  Pen  and  Spalding,  - Pen, . aodel. 
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The  PicMiirifled  Cliamber 

The  main  focus  of  this  project  has  been  the  study  of  the  infiltration  of  contaminant 
into  a  pressurized  tube  with  a  fiibric  end  cap  where  the  external  flow  is  turbulent.  A  short 
tube,  pressurized  with  uncontaminated  air,  is  placed  concentrically  within  a  longer,  larger 
diameter  tube  with  contaminated  turbulent  air  flowing  through  it.  The  effect  of  chamber 
pressure  on  contaminant  infiltration  is  studied.  Because  the  tubes  are  circular  and  located 
concentrically,  the  flow  is  axisymmetric  and  can  be  modded  using  the  two-dimensional 
equations  given  earlier.  The  problem  is  shown  in  Fig.  8. 

A  graded  mesh  is  used  to  ensure  that  Y  <  30  .  To  do  this  a  power  law  formulation 
is  used  for  the  grid  spacing.  Each  direction  is  divided  into  subregions  as  defined  by  the 
locations  of  the  wall,  as  shown  in  Fig.  9.  The  subr^on’s  dimension  is  normalized  to  a 
value  of  1.0  and  and  subdivided  into  n  cells.  The  normalized  location  of  the  first 
coordinate  is  s(l)  =  0.0.  For  subsequent  coordinates  s(i+l)  =  s(i)  +  1.0/n.  These  evenly 
spaced  coordinates  are  then  mapped  onto  a  graded  spacing  by  s(i+l)  -  s(i+l)^  for  :  = 
l,n.  The  physical  coordinates  are  found  by  using  the  appropriate  scale  factor  and  starting 
value.  The  subroutines  to  do  this  are  part  of  the  driver.  Several  runs  are  made  to  find  a 
satisfactory  number  of  cells  and  grading  for  each  subregion.  Fig.  10  illustrates  such  a  mesh 
in  the  neighborhood  of  the  chamber.  The  values  finally  used  are  given  in  Appendix  D. 

The  fabric  is  very  thin  compared  to  the  other  dimensions  in  the  problem.  In  order  to 
have  a  reasonable  mesh,  it  is  necessary  to  use  a  fictitious  thickness  for  the  fabric  that  is  of 
the  order  of  the  cell  widths  used  in  the  rest  of  the  model.  Smearing  the  fabric’s  thickness 
over  two  cells  is  accomplished  by  scaling  the  physical  value  by  the  ratio  of  actual  fabric 
thickness  to  the  thickness  used  in  the  model  [13]  which  is  two  control  volumes.  The 
pressure  drop  source  terms  given  by  eqs.(8)  and  (9)  are  adjusted  by 

S*  =  SB/2C^ 

where  B  is  the  thickness  of  the  fabric  and  C„  is  the  thickness  of  a  control  volume  or  cell. 

V 
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configuration  for  the  axisynetric  nodel  vith 

4  T_  _ I  _  4  — 
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Figure  10.  A  typical  graded  aesh. 


The  diffusion  coefficient  for  the  contaminant  in  eq.  (42)  is  adjusted  by 

Uncontaminated  air  is  injected  axially  in  the  negative  s-diiection  over  a  radial 
distance  of  0.474  in  at  a  distance  of  2.0  in  from  the  fabric.  Inlet  velocities  up  to  100  in/s 
were  used  with  the  injection  velocities  ranging  from  0.1  to  1.0  times  the  inlet  vdodty. 

A  9  4 

The  properties  for  air  are  /i  =  0.275e--8  Ib-s/in  ,  p  =  0.1063e-6  Ib-s  /in  ,  and  q  = 
o 

0.044  in/s  .  The  values  to  be  used  in  eq8.(8)  and  (9)  for  the  fabric  are  e  =  0.43,  A  = 

149/in,  D  s  0.00277  in,  and  the  thickness  of  the  fabric  B  =  0.0268  in.  The  assumption 

2 

that  the  diffusion  coefficient  for  the  fiber  is  negligible  yields  =  0.012  in/s  from  eq. 

(42). 

Steady  State  Analysis 

The  majority  of  runs  were  for  steady  state  analysis  since  it  is  the  long  term 
performance  of  the  system  that  is  of  interest.  However,  for  purposes  of  validating  the 
model,  several  transient  runs  were  also  made.  In  all  cases,  contaminated  air  enters  at  the 
inlet  and  uncontaminated  air  is  injected  into  the  chamber  as  shown  in  Fig.  8.  In  this 
section  the  steady  state  case  is  discussed. 

Numerous  cases  were  run,  a  selected  few  of  which  will  be  discussed  here.  For  the  first 
case  the  inlet  velocity  is  60  in/s  and  the  injection  velocity  is  8.0  in/s.  Fig.  11  shows  the 
velocity  field  in  the  neighborhood  of  the  chamber  where  the  vectors  are  plotted  every  other 
grid  point.  Fig.  12  shows  the  flow  within  the  chamber  where  the  vectors  are  plotted  every 
grid  point.  Fig.  13  shows  the  pressure  field.  Fig.  14  shows  the  concentration  contours  for 
the  contaminant.  For  the  second  case  the  injection  velocity  is  increased  to  60  in/s.  The 
exterior  flow  and  the  pressure  field  are  similar  to  the  previous  case.  The  interior  flow  is 
shown  in  Fig.  15  and  the  concentration  contours  are  shown  in  Fig.  16.  The  last  case  in  this 
series  is  for  an  inlet  velocity  of  100  in/s  and  an  injection  velocity  of  60  in/s.  Figs.  17  and 
18  show  the  interior  flow  and  the  concentration  contours,  respectively. 
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Figure  11. 


Velocity  field  for  =  60  in/s  and 

"inject  =  *  *"/“• 


36 


Figure  12.  The  velocity  field  within  the  chaaber  for  the  case 
in  Figure  11. 
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Figure  15.  The  velocity  field  within  the  chaaber  when 
"'inlet  =  ™  "/•  "’inject  =  “  “/»• 
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Figure  16.  Concentration  contours  for  the  case  in  Figure  15. 
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Figure  17.  The  velocity  field  within  the  chaaber  when 

“inlet  =  “inject  '  *“ 

(the  scale  is  approxiaately  1/5  that  of  Fig.  8) 
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Figure  18.  Concentration  contours  for  the  case  in  Figure  17. 
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Fig.  19  shows  the  effect  of  injection  velocity  on  the  concentration  at  three  location  in  the 
chamber  for  an  inlet  velocity  of  60  in/s.  Initially  there  is  a  significant  drop  in 
concentration  but  then  it  levds  off  and  even  inaeases  slightly. 

In  these  four  cases  it  is  apparent  that  the  flow  fidd  within  the  chamber  is  such  that  it 
mixes  the  contaminated  air  that  infiltrates,  distributing  it  over  a  large  portion  of  the 
chamber  even  though  there  is  a  net  outflow  of  gas  from  the  chamber.  This  led  to 
consideration  of  a  different  mode  of  injection  of  uncontaminated  air.  Instead  of  axial 
injection,  radial  injection  was  tried.  The  injection  takes  place  at  a  radius  of  3.86  in  over  a 
length  of  1.97  in  along  the  axis  starting  0.6  in  from  the  fabric.  For  an  inlet  velocity  of 
50  in/s  and  an  injection  velocity  of  20  in/s.  Fig.  20  shows  the  flow  in  the  neighborhood  of 
the  chamber.  Fig.  21  shows  the  pressure  field  and  Fig.  22  the  concentration  contours.  It  is 
clear  that  the  levd  of  contamination  is  significantly  less  for  this  latter  case.  The  volume 
flow  rate  of  the  injected  gas  for  this  case  is  2.5  times  that  for  the  case  of  axial  injection  at 
60  in/s  so  it  might  be  construed  that  this  is  the  cause  of  the  significantly  lower 
concentration.  However,  other  runs  showed  that  this  is  not  the  case. 

TiaiuieBt  Analyiis 

From  the  pmnt  of  view  of  practice,  the  steady  state  analysis  is  a  worst  case  since  the 
concentration  of  contaminant  on  the  exterior  of  the  fabric  will  be  at  its  maximum.  A 
transient  analysis  is  important  because  it  illustrates  the  temporal  bdiavior  of  the  system 
and  can  be  used  as  a  further  check  on  the  validity  of  the  modd.  In  the  experimental  setup 
developed  in  paraUd  with  this  study  [14],  the  contaminant  is  humidity.  The  vdodty  is 
allowed  to  stabilize  before  humid  air  is  tdeased  into  the  inlet  of  the  tube.  The  time 
variation  of  the  humidity  at  the  inlet  and  within  the  chamber  is  recorded.  For  the 
experiment,  treated  cotton  duck  was  used  for  the  fabric.  The  characteristics  of  the  fabric 
needed  for  the  modd  were  measured  by  Nickerson[15]  using  micrographs  of  the  test 
spedmens.  These  are  the  values  previously  given.  Because  the  vdodty  fidd  in  the 
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Figure  21.  Pressure  contours  for  the  case  in  Figure  20. 
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experiment  was  stabilized  before  the  introduction  of  humid  air  to  the  inlet,  it  can  be 
assumed  that  only  the  water  vapor  concentration  is  changing  in  time  and  that  the  velocity 
fidid  is  steady.  Thus  the  velocity  analyses  that  were  performed  for  the  steady  state  cases 
can  be  used  as  input  for  the  transient  model  for  the  contaminant  concentration.  Fig.  23 
shows  the  variation  with  time  of  inlet  concentration  used  in  the  model  (the  variation  is 
(1.0  —  )  and  is  a  good  representation  of  the  measured  data  [14]),  and  the 

analytically  predicted  variation  within  the  chamber  as  predicted  by  the  modd  for  a 
=  60  in/s  and  =  16  in/s.  It  is  dear  that  the  predicted  value  within  the  diamber 

directly  tracks  the  inlet  value,  as  far  as  can  be  seen  in  the  graph.  This  behavior  was 
observed  for  a  wide  range  of  injection  velodti^  and  for  various  locations  within  the 
chamber.  Fig.  24a  shows  the  experimentally  measured  response  for  a  fabric  covered  with 
the  cotton  duck  for  the  case  of  zero  injection  vdodty  (no  overpressure).  Note  that  the 
readings  are  not  normalized  and  that  the  steady  state  values  are  equal,  which  is  to  be 
expected  when  there  is  no  injection  of  dry  air  into  the  chamber.  It  should  be  noted  that 
the  measured  data  are  for  rdative  humidity  and  not  for  the  concentration  of  water  vapor  so 
the  comparison  can  only  be  qualitative.  It  is  dear  that  the  rise  time  of  the  humidity  in  the 
chamber  is  significantly  greater  than  that  for  the  inlet  humidity.  This  large  difference  in 
rise  times  to  steady  state  was  troubling.  Because  the  velocty  is  fairly  high,  the 
contaminant  is  transported  quite  rapidly  from  the  inlet  to  the  chamber,  any  change  at  the 
inlet  being  fdt  within  a  second  or  less  at  the  exterior  of  the  chamber.  This  is  very  fast 
compared  with  the  time  the  solution  takes  to  reach  steady-state,  which  is  on  the  order  of 
500.0  s.  Thus,  the  modd  of  the  fabric  appeared  to  have  a  serious  flaw.  In  order  to  check 
this  a  simple  one-dimensional  model  of  diffusion  through  a  fabric  was  solved  exactly  for 
the  case  of  initial  concentration  zero  in  the  fabric  with  one  boundary  having  a 
concentration  equal  to  1.0  applied  at  time  zero  and  the  other  boundary  diffusing  through  a 
resistance  to  a  sink  at  zero  concentration.  When  the  resistance  is  Infinite  the  boundary  is 
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Figure  23.  Transient  case  for  16  and  60  in/s. 

The  location  in  the  Camber  is  1^64,  Js9 
(1.875  in  from  the  front  of  the  chamber 
and  1.298  in  from  the  axis). 
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Figure  24.  a)  Ex^mental  results  for  cotton  duck  with  no 

injection  into  the  chamber  and  =  60  in/s. 

injection 

into  the  chamber  and  =  120  in/s. 
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impervioos  and  when  the  resistance  is  zero  the  boundary  is  at  zero.  The  sdution  for  the 

problem  is  a  series  [16]  with  coeSGdents  that  are  exponentials  in  time  of  the  form 
where  0  are  the  roots  of  0/h  +  tan(/3B)  =  0  and  where  h  is  the  effective  surface 
conductance  at  the  boundary  and  B  is  the  thidmess  of  the  fabric.  The  time  constant  for  a 
typical  term  in  the  series  is  1/ri^.  The  time  constant  gets  larger  as  h  gets  smaller  and 
the  longest  time  constant  in  the  series  corresponds  to  the  first  root  of  the  characteristic 
equation.  It  can  be  easily  demonstrated  that  as  h  gets  smaller  the  first  root  0  — >  ir/2B 
and  for  a  fabric  with  q  =  0.012  and  B  =  0.027  that  the  largest  time  constant  r  — > 

0.025  s.  Steady  state  can  be  assumed  to  be  reached  in  four  time  constants  which  is  0.1  s. 
Thus,  the  model  in  the  code  was,  in  fact,  performing  properly  under  the  assumption  that 
the  fabric  is  passive.  Further,  an  earlier  study,  which  compared  the  fabric  modd  to  the 
work  of  Armour  and  Cannon  [1,13]  showed  the  model  to  work  properly.  The  conclusion 
was  that  there  was  another  mechanism  at  work  in  the  e3q)eriment,  which  the  model  did  not 
account  for.  It  was  postulated  that  the  cotton  duck  was  not  a  passive  fabric  but  one  with 
characteristics  that  change  with  increased  humidity,  i.e.,  its  porosity,  surface 
area-to-volume  ratio,  pore  diameter,  and  thickness  all  changing  along  with  the  foct  that  it 
could  be  drawing  vapor  from  the  air  prior  to  becoming  saturated.  In  order  to  see  if 
something  of  this  sort  was  the  case  a  quick  test  was  run  with  a  nylon  fabric  which  was 
thought  to  be  more  stable.  Indeed,  as  shown  in  Fig.  24b,  the  test  showed  that  the 
humidity  in  the  chamber  tracked  the  inlet  humidity  dosdy.  No  values  for  the  fabric 
parameters  for  the  nylon  were  available  at  the  time  of  this  study  so  a  modd  was  not 
attempted. 
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CONCLUSIONS 

The  code  is  a  useful  tool  for  modeling  turbulent  flow  in  situations  with  simple 
geometries,  its  strength  being  that  it  can  be  used  to  proof  test  physical  modds  of  such 
things  as  &brics,  experimental  configurations,  the  effects  of  different  injection  methods, 
etc.  The  &ct  that  there  were  significant  differences  between  the  model  and  experiment 
appears  to  be  due  to  the  way  the  fabric  was  modded.  The  modd  used,  however,  is  the  best 
available.  Its  weakness  is  that  it  assumes  the  fabric  is  passive  when,  in  fact,  it  would 
appear  to  be  active,  i.e.,  its  properties  change  with  conditions.  This  fact  points  up  the 
need  for  further  study  of  fabric  behavior  in  changing  conditions  to  devdop  modds  that  can 
be  effdrtivdy  used  with  codes  such  as  this. 
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APPENDIX  A 


Stabler  C«4e 

This  code  is  a  modification  of  an  earlier  SIMPLER  code  for  laminar  flow.  It  is 
called,  simply  enough,  TURBULENT.  It  has  been  modified  to  permit  the  solution  of 
turbulent  flow  problems  for  incompressible  fluids.  A  flow  chart  is  given  on  the  next  page 
with  the  important  differences  starred.  The  pages  of  the  code  on  which  the  changes  occur 
are  indicated.  The  pages  for  the  main  code  (the  sdntion  engine)  are  numbered  61—74.  The 
changes  are  indicated  by  an  arrow.  The  changes  are  merdy  to  ENTRY  points  in  the 
USER  routine  (DRIVER)  that  perform  computations  peculiar  to  the  two  equation  modd  of 
turbulent  flow.  In  addition,  several  other  subroutines  have  been  devdoped.  The  parts  that 
the  analyst  is  responsible  for  appear  on  the  right  side  of  the  following  flow  chart.  Not  all 
the  user-devdoped  subroutines  indicated  in  the  chart  are  used  for  every  problem  studied. 

Three  input-output  devices  are  opened  in  the  main  program  and  one  in  the  user 
routine.  Device  15  uses  a  file  called  "INPUT"  for  input,  device  16  uses  a  file  called 
"OUTP"  for  printed  output,  device  17  uses  a  file  called  "PLOT15"  for  formatted  output 
to  be  used  with  the  contour  and  vector  plotting  programs,  and  device  12  uses  a  file  called 
"RESTART"  both  for  restarting  long  runs  and  for  saving  information  from  a  vdodty 
analysis  for  use  in  a  mass  transport  analysis  of  contaminant. 
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A  flow  chart  showing  the  rdation  of  the  user  routines  to  the  m^n  program  TUBBULENT. 

TURBULENT  User  routines 
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A  word  of  explanation  about  interpolation  from  main  grid  points  to  vdodty  grid 
points  is  required.  In  particular,  on  page  18  the  shear  stress  is  interpolated  from  the  main 
grid  points  to  the  u— velocity  grid  points.  Refer  to  the  following  figure, 


Where  S  is  a  scalar  given  at  the  main  grid  points  0  and  is  interpolated  to  the  vdodty 
grid  point  X  by 

=  (XCV._j/2.XDIP.).S.  j  +  (l-XCVj_j/2.XDOPj).S._j  j 
=  PXj-S.  .  +  PXM-.S,  ,  . 

1  1,J  11  i|J  . 

Similarly  for  the  y-direction. 


57 


FORTRAN  VARIABLES  IN  SIMPLER  ALGORITHM 


AIM(I, J) 
AlPd,  J) 
AJM( I, J) 
AJP(I,J) 
APT 
ARX( J) 
ARXJ( J) 
ARXJP( J) 

CON( I, J) 

DIFF 

DT 

DU(I, J) 
DVd.J) 
Fd,J,NF) 
FLOW 

FV(J)  and 

FXd)  and 
FYd)  and 

GAMdd) 

I 

IPREF 

1ST 

ISTF 

ITER 


Finite  difference  coefficient  A,, 

Finite  difference  coefficient  A^ 

Finite  difference  coefficient  Ag 
Finite  difference  coefficient  A„ 

Unsteady  flow  term  ^  /At 

Area  of  the  main  c.v.  face  normal  to  x  direction 

The  part  of  ARX(J)  that  overlaps  the  c.v.  for  V(I,J) 

The  part  of  ARX(J)  that  overlaps  the  c.v.  for  Vd,J<fl) 

The  constant  term  In  the  f.d.  equation, 
also  used  for  S^  in  GAMSOR  In  USER  routine 

Diffusion  term  GAM*area/dl s tance  Input  to  DIFLOW 

Time  step  for  transient  problems 

o'*  Influencing  Ud,J) 

D^  Influencing  Vd,J) 

Array  containing  dependent  and  auxiliary  variables 

Mass  flow  rate  through  a  c.v.  face 

FVP(J)  permit  Interpolation  from  the  V  grid  to  the 
main  grid  through  relations  of  the  form 

grid  +  PVP( J)*Ad . J+1 

FXMCI)  as  above  but  Interpolates  from  main  to  U  grid 

FYMCl)  as  above  but  Interpolates  from  main  to  V  grid 

The  diffusion  coefficient 

Index  denoting  position  In  x 

The  I  value  of  the  reference  pressure  point 

The  first  Internal  point  value  of  I 

1ST  -  1 

Iteration  counter 
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J 


Index  denoting  position  in  y 
JPREF  The  J  value  of  the  reference  pressure  point 

JST  The  first  internal  point  value  of  J 

JSTF  JST  -  1 

LAST  Maximum  number  of  iterations 

LPRINT(NF)  when  .TRUE.  ,  F(I,J,NF)  if  printed 
LSOLVE(NF)  when  .TRUE,  a  P.D.E.  is  solved  for  NF 
LSTOP 
LI 
L2 
L3 

MODE 
Ml 
M2 
M3 
NF 

NFMAX 
NGAM 
MRHO 

NTIMES(NF)  Number  of  sweeps  in  SOLVE  at  each  iteration  for 
each  dependent  variable 

P(I,J)  The  pressure,  p 

PC(I,J)  Th  e  pressure  correction,  p* 

PT(  ),  QT(  )  Matrices  used  in  TDMA 

R(J)  The  radius  r  for  the  main  grid  point  I,J 

RELAX(NF)  Relaxation  parameters 

RHO(I,J)  The  density 
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When  .TRUE,  computation  stops 
Number  of  grids  in  x  direction 
LI  -  1 
LI  -  2 

Co-ordinates  l*planar,  2-cyl 1 ndr i cal ,  3>spherical 
Number  of  grids  in  y  direction 
Ml  -  1 
Ml  -  2 

Index  denoting  the  variable 

Largest  value  of  NF  for  which  storage  is  assigned 
NFMAX+2;  GAM(I,J)  is  equivalent  to  F(I,J,NGAM) 
NFMAX+1;  RH0(I,J)  is  equivalent  to  F(I,J,NRHO) 


RHOCON 
RMN( J) 
SMAX 
SSUM 
SX(  J) 
SXMN( J) 
TIME 

TITLE(NF) 
U(I, J) 
V(I,J) 

VOL 

X(I) 

XCV( I) 
XCVI< I) 
XCVIP( I) 
XCVS( I) 
XDIF( I) 
XL 

XU(I) 

Y(J) 

YCV( J) 
YCVR( J) 
YCVRS( J) 
YCVS( J) 
YDIF( J) 
YL 

YV(  J) 


The  density  for  constant  density  problems 
The  value  of  r  at  V(I,J) 

The  largest  absolute  va^ue  of  the  mass  error  In  a  c.v. 
Algebraic  sum  of  all  the  mass  errors 
Scale  factor  for  x  direction  at  Y(J) 

Scale  factor  for  x  direction  at  yv(J} 

Time  for  unsteady  problems 

Title  of  variable  for  output  purposes 

The  X  direction  velocity 

The  y  direction  velocity 

Volume  of  the  c.v. 

Values  of  the  x  direction  grids 

Size  of  main  c.v.  In  the  x  direction 

Part  of  XCV( I )  that  overlaps  c.v.  for  U(I,J) 

Part  of  XCV(I)  that  overlaps  c.v.  for  U(I,J+1) 

As  XCV(I)  but  for  U  grid 
X(I)  -  X(I-l) 

x  direction  length  of  Integration  region 
X  locations  of  U(I,J) 

Values  of  the  y  direction  grids 
Size  of  main  c.v.  In  the  y  direction 
Same  as  ARX(J) 

Area  of  v  c.v.  face  normal  to  x  direction 
As  YCV(J)  but  for  V  grid 
Y(J)  -  y(J-l) 

y  direction  length  of  Integration  region 
y  locations  of  V(I,J) 
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1 . 2 . 3 . 4 . 5 . 6 . 7 

- SIMPLER  ALGORITHM  - 

TURBULENT  FLOW 
CONSTANT  DENSITY 


IMPLICIT  REAL*8 (A-H,0-Z) 

IMPLICIT  INTEGER (I-N) 

LOGICAL  LSTOP 
COMMON/CNTL/LSTOP 
C 

OPEN (UNIT-15, FILE-' INPUT' ,STATUS-'OLD' ) 
OPEN (UNIT-16, FILE-'OUTP', STATUS-' OLD' ) 
OPEN  (UNIT-n ,  FILE-'  PLOT15'  ,  STATUS-'  OLD' ) 
C 

CALL  INPUT 
CALL  GRID 
CALL  SETUP 1 
CALL  START 
10  CALL  DENSE 
CALL  BOUND 
CALL  OUTPUT 
IF (LSTOP)  THEN 
CLOSE (UNIT-15, STATUS-' KEEP' ) 

CLOSE (UNIT-16, STATUS-'KEEP' ) 

CLOSE (UNlT-17, STATUS-'KEEP' ) 

STOP 

ENDIF 

CALL  SETUP 2 
G''  TO  10 
END 
C 

C - 

C - 

c - 

C 

SUBROUTINE  DIFLOW 
IMPLICIT  REALMS (A-H,0-Z) 

IMPLICIT  INTEGER (I-N) 

C 

COMMON/COEF/FLOW, DIFF, ACOF 
C 
C 

TOL  -  l.OD-20 
ACOF  -  DIFF 

IF  (DABS (FLOW) .LT. TOL)  RETURN 
TEMP-DIFF-ABS (FLOW) *0 . 1 
ACOF-0 , 

IF(TEMP.LE.O.)  RETURN 
TEMP-TEMP/DIFF 
ACOF-DIFF*TEMP**5 
RETURN 
END 
C 

C - 

C - 

C - 

C 

SUBROUTINE  SOLVE 
IMPLICIT  REALMS (A-H,0-Z) 

IMPLICIT  INTEGER (I-N) 

C 

LOGICAL  LSOLVE,LBLK 
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PARAMETER  (ID-151, JD-151,NFD-7,NFP3-7,MIJ-151) 
COMMON/BLOCK/F(ID, JD,NFD) ,GAM(ID, JD) ,CON(ID, JD) , 

1  AIP(ID, JD) ,AIM(ID, JD),AJP(1D, JD) , AJM (ID, JD) , AP (ID, JD) , 

2  X(ID),XU(ID) ,XDIF(ID),XCV(ID),XCVS(ID) , 

3  Y(JD),YV(JD),YDIF(JD),YCV(JD),ycVS(JD), 

4  YCVR(JD),YCVRS(JD),ARX(JD),ARXJ(JD),ARXJP(JD), 

5  R(JD)  ,RMN(JD)  ,SX(JD)  ,SXMN(JD)  ,XCVI  (ID)  ,X<^^IP  (ID) 

COMMON  DU(ID, JD) ,OV(ID, JD) ,  FV(JD) ,FVP (JD) , 

1  FX(ID)  ,FXM(ID)  ,FY(JD),FYM(JD),PT(MIJ),(JT(MIJ) 

COMMON/ INDX/NF , NFMIN , NFMAX, NP , NRHO, NGAM, LI , L2 , L3 , Ml , M2 , M3 , 
1  1ST,  JST, ITER, LAST, IPREF, JPREF,MODE,NTIMES (NFP3) 
CCX4MON/LOGI/LSOLVE (NFP3) , LBLK (NFP3) 

COMMON/ VARI /TIME, DT, RELAX (NFP3) , RHOCON 
COMMON/ INODT/ IN, 10 

DIMENSION  D(MIJ) ,VAR(MIJ) ,VARM(MIJ) ,VARP(MIJ) ,PHIBAR(MIJ) 

C 

ISTF-IST-1 

JSTF-JST-1 

IT1-L2+IST 

IT2-L3+IST 

JT1-M2+JST 

JT2-M3+JST 

C - 

DO  999  NT-1, NTIMES(NF) 

DO  391  N-NF,NF 
IF( .NOT.LBLK(NF) )G0  TO  60 
C 
C 

C  COME  HERE  TO  DO  BLOCK  CORRECTION 

C 

c . 

C  SUMMING  IN  I  DIRECTION 

C . 

DO  22  J- JST, M2 
VAR(J)-0. 

VARP(J)-0. 

VARM(J)-0. 

D(J)-0. 

DO  33  I-IST,L2 

VAR ( J) -VAR ( J) +AP ( I ,  J) 

IF(I.NE.IST)  VAR(J)-VAR(J)-AIM(I, J) 

IF(I.NE.L2)  VAR(J)-VAR(J)-AIP(I,  J) 

VARM  ( J ) -VARM  (  J) -^A JM  ( I ,  J) 

VARP  ( J)  -VARP  ( J)  +AJP  (I,  J) 

D(J)-D(J)  +CON(I,  J)+AIP(I,  J)  *F(I+1,  J,N)+AIM(I,  J)  * 

1F(I-1, J,N)+AJP(I, J)*F(I, J+1,N)+AJM(I, J) *F(I, J-1  N)- 
2AP(I, J) *F(I, J,N) 

33  CONTINUE 
22  CONTINUE 

IF( (NF.EQ.3) .OR. (NF.EQ.NP) )  VAR(4)-1. 

IF( (NF.EQ,3) .OR. (NF.EQ.NP) )  VARP (4) -0. 

IF( (NF.EQ.3) .OR. (NF.EQ.NP) )  VARM(4)-0. 

IF ( (NF.EQ.3) .OR. (NF.EQ.NP) )  D(4)-0. 

PHIBAR(Ml)-0. 

PHIBAR(JSTF)-0. 

PT(JSTF)-0. 

QT ( JSTF) -PHIBAR ( JSTF) 

DO  44  J- JST, M2 

DENOM-VAR ( J) -PT (J-1 ) *VARM ( J) 

PT ( J) -VARP ( J) /DENOM 
TEMP-D(J) 

QT(J)-(TEMP+VARM(J) *QT (J-1) ) /DENOM 

44  CONTINUE 

DO  45  JJ-JST,M2 
J-JTl-JJ 

45  PHIBAR(J)-PHIBAR(J+1) *PT(J)+QT(J) 
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DO  47  1-IST,L2 
DO  47  J-JST,M2 

47  F(I, J,N)-F(I, J,N)-fPHlBAR(J) 


SUMMING  IN  J  DIRECTION 


DO  51  I-IST,L2 
VAR{I)-0. 

VARP(I)-0. 

VARM(I)-0. 

D(I)-0. 

DO  53  J-JST,M2 

VAR (I) -VAR(I) +AP (I, J) 

IF(J.NE.JST)  VAR(I)-VAR(I)-AJM(I,  J) 

IF(J.NE.M2)  VAR(I)-VAR(I)-AJP(I, J) 

VARP ( I ) -VARP ( I ) + AIP ( I , J ) 

VARM ( I) -VARM ( I ) +AIM ( I , J) 

D(I)-D(I)+CON(I, J)+AIP(I, J) *F(I+1,  J,N)  + 
lAIM (I , J) *F (I-l, J,N) +AJP (I, J) *F (I, J+1,N) +AJM(I,  J) * 
2F{I, J-1,N)-AP<I, J)*F(I, J,N) 

53  CONTINUE 
51  CONTINUE 

IF( (NF.EQ.3) .OR. (NF.EQ.NP))  VAR(4)-1. 

IF( (NF.EQ.3) .OR. (NF.EQ.NP))  VARP(4)-0. 

IF( (NF.EQ.3) .OR. (NF.EQ.NP) )  VARM(4)-0. 

IF( (NF.EQ.3) .OR. (NF.EQ.NP))  D(4)-0. 

PHIBAR(Ll)-0. 

PHIBAR(ISTF)-0. 

PT(ISTF)-0. 

QT(ISTF)-PHIBAR(ISTF) 

DO  57  I-IST,L2 

DENOM-VAR  ( I )  -PT  ( I->1 )  *VARM  ( I ) 

PT ( I ) -VARP ( I ) /DENOM 
TEMP-D(I) 

QT  (I)  -  <TEMP+QT  (I-l)  ‘VAEMd)  )  /DENOM 

57  CONTINUE 

DO  58  II-IST,L2 
I-ITl-II 

58  PHIBAR(I)-PHIBAR(1+1)*PT(I)+QT(I) 

DO  59  I-IST,L2 

DO  59  J-JST,M2 

59  F(l, J,N)-F(I, J,N)+PHIBAR(1) 


60  CONTINUE 

DO  90  J-JST,M2 

PT(ISTF)-0. 

QT(ISTF)-F(ISTF,J,N) 

DO  70  I-IST,L2 

DENCW4-AP  ( I ,  J)  -PT  ( I-l )  *AIM  ( I ,  J) 


6979 

c 


testd-abs (denom) 

if (te8td.lt.l.e-50)write(io,6979)  nf,i, j,ap(i, j) 
format (2x,' solve,  nf,i, j,ap  ',3i5,el0.4) 


C 


PT ( I ) -AIP ( I , J) /DENOM 

TEMP-CON(I, J)+AJP(I,J) *F(1, J+1,N)+AJM(I,J)*F 
QT(I)-(TEMP+AIM(I,J) *QT (I-l) ) /DENOM 
70  CONTINUE 

DO  80  II-IST,L2 
I-ITl-II 


(I,  J- 


80  F(I, J,N)-F(I+1, J,N) *PT(I)+QT(I) 
90  CONTINUE 


DO  190  JJ-JST,M3 

J-JT2-JJ 

PT(ISTF)-0. 


,N) 
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QT ( ISTF) -F ( ISTF, J, N) 

DO  170  I-IST,L2 

DENOM-AP ( I , J) -PT ( 1-1 ) *AIM (I , J) 

PT(1)-AIP (I, J)/DENOM 

TEMP-CON(I, J)+AJP(I, J) *F(1, J+1,N)+AJM(I, J)*F(I,  J-1,N) 
QT(I)-(TEMP+AIM(I, J) *QT (I-l) ) /DENOM 
170  CONTINUE 

DO  180  II-IST,L2 
I-ITl-II 

180  F(I, J,N)-F(I+1, J,N)*PT{I)+QT<I) 

190  CONTINUE 


DO  290  I-IST,L2 
PT{JSTF)-0. 

QT(JSTF)-F(I, JSTF,N) 

DO  270  J-JST,M2 

DENOM-AP ( I , J) -PT ( J-1 ) *AJM ( I , J) 

PT ( J) -AJP ( I , J) /DENOM 

TEMP-CON ( I , J) +AIP ( 1 , J) *F ( I+l , J, N) +AIM  ( I , J) *F ( I-l ,  J,  N) 
QT ( J) - ( TEMP+A JM ( I , J) *QT ( J-1 ) ) /DENOM 
270  CONTINUE 

DO  280  JJ-JST,M2 
J-JTl-JJ 

280  F(I,J,N)-F(I, J+1,N)*PT(J)+QT(J) 

290  CONTINUE 


DO  390  II-IST,L3 

I-IT2-II 

PT(JSTF)-0. 

QT ( JSTF ) -F ( I , JSTF , N ) 

DO  370  J-JST,M2 

DENOM-AP (I, J) -PT (J-1) *AJM(I,J) 

PT ( J) -AJP ( I , J) /DENOM 

TEMP-CON ( I , J) +AIP (I , J) *F ( I+l, J, N) +AIM ( I , J) *F { I-l ,  J, N) 
QT (J) - (TEMP+AJM(1, J) *QT ( J-l> ) /DENOM 
370  CONTINUE 

DO  380  JJ-JST,M2 
J-JTl-JJ 

380  F(I, J,N)-F(I, J+1,N)*PT(J)+QT(J) 

390  CONTINUE 

391  CONTINUE 

999  CONTINUE 
RETURN 


ENTRY  RESET 


DO  400  J-2,M2 
DO  400  1-2, L2 
CON(l, J)-0. 
AP(I, J)-0. 

400  CONTINUE 
RETURN 
END 


SUBROUTINE  SETUP 
IMPLICIT  REAL*8(A-H,0-Z) 
IMPLICIT  INTEGER (I-N) 
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c 

c 


c 


c 


c 

c 

c 

c 

c 

c 

c 

c 


c 


c 


c 

c 

c 

c 

c 

c 


PARAMETER  ( ID-1 5 1 , JD-151 , NFD-? , NrP3-7 , MIJ-1 51 ) 

LOGICAL  LSOLVE , LBLK,  LSTOP 

COMMON/BLOCK/F(ID, JD,NFD),6AM(ID, JD),CON(ID, JD) , 

1  AIP(ID, JD) ,AIM(ID, JD),AJP(ID, JD) , AJM(ID, JD) , AP (ID, JD) , 

2  X (ID), XU (ID) ,XDIF(ID),XCV(ID) ,XCVS(ID) , 

3  Y(JD) ,YV(JD) ,YDIF(JD),yCV(JD),YCVS(JD)  , 

4  YCVR(JD) ,YCVRS(JD) ,ARX(JD) ,ARXJ(JD) ,ARXJP(JD) , 

5  R(JD) ,RMN(JD) ,SX(JD) , SXMN ( JD ) , XCVI (ID) ,XCVIP (ID) 

COMMON  DU(ID, JD) ,DV(ID, JD) ,  FV(JD) ,FVP (JD) , 

1  FX(ID) ,FXM(ID) ,FY(JD) ,FYM(JD) ,PT(MIJ) ,QT(MIJ) 

COMMON/ INDX/NF, NFMIN, NFMAX, NP , NRHO, NGAM, LI , L2 , L3 , Ml , M2 ,  M3 , 
1  1ST, JST, ITER,LAST,IPREF, JPREF,MODE,NTIMES(NFP3) 

CCMMON/LOGI/LSOLVE(NFP3) ,LBLK (NFP3) 

COMMON/ VARI /TIME, DT, RELAX (NFP3) , RHOCON 

COMMON/CNTL/LSTOP 

C<»®«)N/SORC/SMAX,  SSDM 

COMMON/COEF/FLOW, DIFF, ACOF 

COMMON/ INOUT/ IN,  10 

DIMENSION  U(ID, JD) ,V(ID, JD) ,PC(ID, JD) ,P (ID,  JD) 

EQUIVALENCE  (F(l, 1,1) ,U(1,1) ) , (F(l, 1, 2) ,V(1,1) ) , 

:  (F(1,1,3),PC(1,1)), (F(1,1,4),P(1,1)) 

DIMENSION  CONS (ID, JD, 2), AIMS (ID, JD, 3) , AIPS (ID, JD, 3) , 

:  AJMS(ID,JD,3),AJPS(ID, JD,3) , APS (ID, JD, 3) 

1  FORMAT (15X, 'COMPUTATION  IN  CARTESIAN  COORDINATES') 

2  FORMAT (15X, 'COMPUTATION  FOR  AXISYMMETRIC  SITUATION') 

3  FORMAT (15X, 'COMPUTATION  IN  POLAR  COORDINATES') 

4  FORMAT (14X, 40 (IH*),//) 


ENTRY  SETUP 1 


NFMAX-NFD 

NRHO-NFD+1 

NGAM-NFD+2 

L2-L1-1 

L3-L2-1 

M2-M1-1 

M3-M2-1 

X(1)-XU(2) 

DO  5  1-2, L2 

5  X(I)-0.5*(XU(I+1)+XU(I)) 
X(L1)-XU(L1) 

Y(1)-YV(2) 

DO  10  J-2,M2 

10  Y(J)-0.5*(YV(J+1)+YV(J)) 
Y(M1)-YV(M1) 

DO  15  1-2, LI 

15  XDIF(I)-X(I)-X(I-1) 

DO  18  1-2, L2 
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18  XCV(I)-X0(I+1)-X0(1) 

DO  20  1-3, L2 
20  XCVS(I)-XDIF(I) 

XCVS (3) -XCVS (3) +XDIF (2) 

XCVS (L2 ) -XCVS (L2) +XDIF (LI) 

DO  22  1-3, L3 
XCVI(I)-0.5*XCV(I) 

22  XCVIP(I)-XCVI{I) 

XCVIP (2)-XCV(2) 

XCVI(L2)-XCV(L2) 

DO  35  J-2,M1 
35  YDIF(J)-Y{J)-y(J-l) 

DO  40  J-2,M2 
40  YCV(J)-YV(J+1)-YV(J) 

DO  45  J-3,M2 
45  YCVS(J)-YDIF(J) 

YCVS ( 3 ) -YCVS ( 3 ) +YDIF ( 2 ) 

YCVS (M2 ) -YCVS (M2 ) +YDIF (Ml ) 
IF(MODE.NE.l)  GO  TO  55 
DO  52  J-1,M1 
RMN(J)-1.0 
52  R(J)-1.0 
GO  TO  56 

55  DO  50  J-2,M1 

50  R(J)-R{J-1)+YD1F(J) 

RMN(2)-R(1) 

DO  60  J-3,M2 

60  RMN(J)-RMN(J-1)+YCV(J-1) 
RMN(M1)-R(M1) 

56  CONTINUE 

DO  57  J-1,M1 
SX(J)-1, 

SXMN(J)-1. 

IF (MODE. NE. 3)  GO  TO  57 
SX(J)-R(J) 

IF(J,NE.l)  SXMN(J)-RMN(J) 

57  CONTINUE 

DO  62  J-2,M2 

YCVR ( J) -R ( J ) * YCV ( J) 

ARX(J)-YCVR(J) 

IF (MODE. NE. 3)  GO  TO  62 
ARX(J)-YCV(J) 

62  CONTINUE 

DO  64  J-4,M3 

64  YCVRS ( J) -0 . 5* (R ( J) +R ( J-1) ) *YDIF ( J) 
YCVRS ( 3 ) -0 . 5* (R ( 3 ) +R ( 1) ) * YCVS ( 3 ) 
YCVRS (M2 ) -0 . 5  * (R (Ml ) +R (M3 ) ) *YCVS (M2 ) 
IF (MODE. NE. 2)  GO  TO  67 

DO  65  J-3,M3 

ARXJ(J)-0.25*(1.+RMN(J) /R(J> ) *ARX(J) 

65  ARXJP(J)-ARX(J)-ARXJ(J) 

GO  TO  68 

67  DO  66  J-3,M3 
ARXJ(J)-0.5*ARX(J) 

66  ARXJP(J)-ARXJ(J) 

68  ARXJP(2)-ARX(2) 

ARXJ(M2)-ARX(M2) 

DO  70  J-3,M3 
FV( J) -ARXJP ( J) /ARX ( J) 

70  FVP(J)-1.-FV(J) 

DO  85  1-3, L2 

FX(I)-0.5*XCV(I-1)/XDIF(I) 

85  FXM(I)-1.-FX(I) 

FX(2)-0. 

FXM(2)-1. 

FX(L1)-1. 
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FXM(Ll)-0. 

DO  90  J-3,M2 

FY { J) -0 . 5*YCV ( J-1 ) /YDIF ( J) 
90  FYM(J)-1.-FY(J) 

FY(2)-0. 

FYM(2)-1. 

FY(M1)-1. 

FYM(Ml)-0. 


C0N,AP,0,V,RH0,PC  AND  P  ARRAYS  ARE  INITIALIZED  HERE 


DO  95  J-1, Ml 
DO  95  I-1,L1 
PC{1, J)-0. 

U(I, J)-0, 

V(I, J)-0. 

CON(I, J)-0. 

AP(I, J)-0. 

P(I, J)-0. 

95  CONTINUE 

RHO  -  RHOCON 

IF(MODE.EQ.l)  WRITE (10, 1) 
IF (MODE. EQ. 2)  WRITE (10,  2) 
IF (MODE. EQ. 3)  WRITE (10, 3) 
WRITE (10, 4) 

RETURN 


ENTRY  SETUP 2 


COEFFICIENTS  FOR  THE  U  EQUATION 

CALL  RESET 

C— — — — — 

NF-1 

IF( .NOT.LSOLVE(NF) )  GO  TO  100 

I  ST-3 

JST-2 

C— — — — — — 

CALL  GAMSOR 

REL-1. -RELAX (NF) 

DO  102  1-3, L2 
FL-XCVI(I)*V(1,2) 

FLM-XCVIP (I-1)*V(I-1,2) 

FLOW-R ( 1 ) * (FL+FLM) *RHO 

DIFF-R(l) * (XCVI (I) *GAM(I, 1)+XCVIP (I-l) *GAM(I-1, 1) ) /YDIF (2) 
CALL  DIFLOW 

102  AJM(I,2)-ACOF+DMAX1(O.ODO,FLOW) 

DO  103  J-2,M2 

FLOW-ARX ( J) *U (2, J) *RHO 

DIFF-ARX ( J) *GAM ( 1 , J) / (XCV (2 ) *SX ( J) ) 

C— — — — — — 

CALL  DIFLOW 

AIM ( 3 , J) -ACOF+DMAXl ( 0 . ODO , FLOW) 

DO  103  1-3, L2 
IF(I.EQ.L2)  GO  TO  104 
FL-U(1, J) *RHO 
FLP-U(I+1, J)*RHO 
FLOW-ARX (J) *0.5*(FL+FLP) 
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DIFF-ARX(J)  *GAM(I,  J)  /  (XCV(I)  *SX(J) ) 

GO  TO  105 

104  FL019-AI0C(J)*U(L1,  J)*RHO 

DIFF-ARX ( J) *GAM (LI, J) / (XCV(L2 ) *SX ( J) ) 

105  CALL  OIFLOW 

— — 

AIM (1^1 , J) -ACOF+DMAXl (0 . ODO, FLOW) 

A1P(I, J)-AIM(I+1, J)-FLOW 
IF(J.EQ.M2)  GO  TO  106 
FL-XCVI ( I ) *V ( I , J+1 ) *RHO 
FLM-XCVIP ( I-l ) *V ( 1-1, J+1) *RHO 

GM-GAM ( I , J) *GAM (I , J+1 ) / (YCV ( J) *GAM (I , J+1 ) +YCV (J+1 ) +GAM (I , J) + 

1  1.0D-30)*XCVI(I) 

a®«-GAM(I-l, J)*GAM(I-1, J+1)/(YCV(J) *GAM(I-1, J+1)+YCV( J+1)  * 

1  GAM(I-1, J)+1.D-30)*XCVIP(I-1) 

DIFF-BMN( J+1) *2 .* (GM+GMM) 

GO  TO  107 

106  FL-XCVI(I)*V(I,Ml)*RHO 
FLM-XCVIP ( I-l ) *V ( I-l , Ml ) *RHO 

DIFF-R(Ml) * (XCVI (I) +GAM(I,M1) +XCVIP (I-l) *GAM(I-1,M1) ) /YDIF(Ml) 

107  FLOW-RMN(J+l) *(FL+FLM) 

CALL  DIFLOW 

AJM ( I , J+1 ) -ACOF+DMAXl ( 0 . ODO , FLOW) 

A JP ( I , J) -AJM ( I , J+1 ) -FLOW 
VOL-YCVR ( J) *XCVS ( I ) 

APT-RHO* (XCVI (I) +XCVIP (I-l) ) 

1/(XCVS(I)+DT) 

AP  (I,  J)  -AP  (1,  J)  -APT 

CON ( I , J) -CON ( I , J) +APT+0 (I , J) 

CALL  WALL  ^ - - - - - 

AP(I,  J)-(-AP(I,  J)  *VOL+AlP(I,J)+AIM(l,  J)+AJP(I,  J)+AJM(I,  J) ) 

1/RELAX (NF) 

CON ( I , J) -CON ( I , J) *VOL+REL*AP ( I , J) *D ( I ,  J) 

DU ( 1 , J) -VOL/ (XDIF ( I ) *SX ( J) ) 

DU(I, J)-DU(I, J) /AP(I, J) 
c 

testap-abs(ap(l, j) ) 

if (testap.lt .O.le-50)  write (lo, 6969) nf, 1, j,ap(l, j) 

6969  format (2x, ' nf,l, j,ap  ',315,el0.4) 
c 

103  CONTINUE 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

C 

DO  115  J  -  1,M1 
DO  115  I  -  1,L1 
AIPS(I,J,1)  -  AIP(I,J) 

AIMS(I,J, 1)  -  AIM(I,J) 

AJPS(I,J,1)  -  AJP(I,J) 

AJMS(I,J,1)  -  AJM(I,J) 

APS(I,J,1)  -  AP(I,J) 

CONS(I,J,l)  -  CON(I,J) 

115  CONTINUE 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

C  TEMPORARY  USE  OF  PC(I,J)  TO  STORE  UHAT 

C 

DO  151  J-2,M2 
DO  151  1-3, L2 

151  PC(I,  J)-(AIP(I, J)*D(I+1,J)+A1M(I, J)*U(1-1, J)+AJP(I, J)*D(I,  J+l)  + 
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lAJM  ( I ,  J)  ( 1 ,  J>1)  ^COM  (I ,  J)  ) /AP  ( 1 ,  J) 
100  CONTINUE 


COEFFICIENTS  FOR  THE  V  EQUATION 


CALL  RESET 
NF-2 

IF(.NOT.LSOLVE(NF))  GO  TO  200 

I  ST-2 

JST-3 

C— — — — — - 

CALL  GAMSOR 
C—————— 

REL-1.-RELAX{NF) 

DO  202  1-2, L2 
AREA-R(l) *XCV(I) 

FLOW-AREA* V (1,2) *RHO 
DIFF-AREA*GAM (I, 1) /YCV(2) 

C-.— 

CALL  D I FLOW 
C— — — — — — 

202  AJM(I,3)-ACOF+DMAX1(O.ODO,FLOW) 

DO  203  J-3,M2 
FL-ARXJ(J)*D(2, J) *RHO 
FLM-ARX JP ( J-1 ) *U ( 2 , J-1 ) *RHO 
FLOW-FL+FLM 

DIFF- (ARXJ( J) *GAM(1, J)+ARXJP (J-1) *GAM(1, J-1) ) / (XDIF (2) *SXMN(J) ) 


CALL  DIFLOW 
C— — — — 

AIM (2 , J) -ACOF+DMAXl (0 . ODO , FLOW) 

DO  203  1-2, L2 
IF(I.EQ.L2)  GO  TO  204 
FL-ARX J ( J) *U ( I+l, J) *RHO 
FLM-ARX JP (J-1) *U( 1+1, J-1) *RHO 

GM-GAM(I, J)*GAM(I+1, J)/ (XCV(I)*GAM(I+1, J) +XCV(I+1) *GAM(I, J) + 

1  l.D-30)*ARXJ(J) 

GMM-GAM(I, J-1) *GAM(I+1, J-1) / (XCV(I) *GAM(I+1, J-1)+XCV(I+1)* 

1  GAM(I, J-1)+1.0D-30)*ARXJP(J-1) 

DIFF-2 . * (GM+GMM) /SXMN ( J) 

GO  TO  205 

204  FL-ARXJ(J)*D(L1,  J)*RHO 
FUl-ARXJP (J-1) *U(L1, J-1) *RHO 

DIFF-  ( ARX J  ( J)  *GAM  (LI,  J)  +ARXJP  (J-1 )  *GAM (LI ,  J-1 ) )  /  (XDIF  (LI )  *SXMN  ( J) ) 

205  FLOW-FL+FLM 
C—— 

CALL  DIFLOW 
C— — — — — — 

AIM (I+l, J) -ACOF+DMAXl (0. ODO, FLOW) 

AIP ( I , J) -AIM ( I+l , J) -FLOW 
IF(J,EQ.M2)  GO  TO  206 
AREA-R(J) *XCV(I) 

FL-V(I, J) *RHO*RMN(J) 

FLP-V(I, J+1) *RHO*RMN(J+l) 

FL0W-(FV(J)*FL+FVP(J) *FLP)*XCV(I) 

D1FF-AREA*GAM(I, J) /YCV(J) 

GO  TO  207 

206  AREA-R(Ml) *XCV(I) 

FL0W-AREA*V ( 1 , Ml ) *RHO 
DIFF-AREA*GAM(I,M1) /YCV(M2) 

C— — — — 

207  CALL  DIFLOW 


AJM ( I , J+1 ) -ACOF+DMAXl ( 0 . ODO , FLOW) 
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A JP ( I ,  J) -AJM ( I , J+1 ) -FLOW 
VOL-YCVRS ( J) *XCV(I) 

APT-  (ARXJ  ( J)  *RHO*0 . 5*  (SX  (  J)  -t-SXMN  ( J)  )  +ARXJP  (  J-l>  *RHO* 

10 . 5*  (SX  ( J-1 )  -t-SXMN  ( J) ) )  /  (YCVRS  ( J)  *DT) 

AP  ( 1 ,  J)  -AP  ( I ,  J>  -APT 
CON(I,  J)-CON(I,  J)-t-Ai  ‘Vd,  J) 

C— — — — — 

CALL  WALL  - — - - - - - 

AP(I,  J)-(-AP(I,  J)  *VOL-i-AIP(I,  J)-i-AIM(I,  J)-i-AJP(I,  J)-t-AJM(l,  J)  ) 
1/RELAX (NF) 
c 

testap-abs(ap(l, j) ) 

if (testap . It . 0 . le-50)  write (lo, 6969) nf, 1, j, ap (1, j) 
c 

CON  (I ,  J)  -CON  (I,  J)  *VOL-i-REL*AP  <1,  J)  *V  (I,  J) 

DV(I, J) -VOL/YDIF ( J) 

DV(I, J)-DV(I, J) /AP(I,  J) 

203  CONTINUE 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

DO  209  J  -  1,M1 
DO  209  I  -  1,L1 
AIPSd,J,2)  -  AIP(I,J) 

AIMS  (I,  J,  2)  -  AIM(I,J) 

AJPS(I,J,2)  -  AJP(I,J) 

AJMS(I,J,2)  -  AJM(I,J) 

APS(I,J,2)  -  AP(I,J) 

CONS (I, J, 2)  -  CON(I,J) 

209  CONTINUE 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

C 

200  CONTINUE 
C 

C  COEFFICIENTS  FOR  THE  PRESSURE  EQUATION 
C 

NF-NP 

IF( .NOT.LSOLVE(NF) )  GO  TO  500 
IST-2 

TC»l»— 9 

DO  402  1-2, L2 
ARHO-R  ( 1 )  *XC:V  ( I )  *RHO 
CON(I,2)-ARHO*V<I,2) 

402  AJM(I,2)-0. 

DO  403  J-2,M2 

ARHO-ARX(J) *RHO 

CON  ( 2 ,  J)  -CON  ( 2 ,  J)  -l-ARHO*U  (2 ,  J) 

AIM(2, J)-0. 

DO  403  1-2, L2 
IF(I.EQ.L2)  GO  TO  404 
ARHO-ARX(J) *RHO 
FLOW-ARHO*PC  (I-t-1 ,  J) 

CON (I, J) -CON (1, J) -FLOW 
CON  ( I-l-l ,  J)  -CON  ( I-H  ,  J)  -i-FLOW 
AIP ( I , J) -ARHO*DU ( I-H , J) 

AIM(I-H,  J)-AIP(I,  J) 

GO  TO  405 

404  ARHO-ARX(J)*RHO 

CON ( I , J) -CON ( I , J) -ARHO*D (LI , J) 

AIP(I, J)-0. 

405  IF(J.EQ.M2)  GO  TO  406 
ARHO-RMN  ( J-i-1 )  *XCV  ( I )  *RHO 

VHAT- ( AIP  ( I ,  J-l-1 )  *  V  ( I-H ,  J-M ) -f  AIM  ( I ,  J-H )  *  V  ( I- 1 ,  J+1 ) -l-AJP  ( I ,  J-H )  * 
1V(I, J+2)+AJM(l, J+1)*V(I, J)+CON(I, J+1) )/AP(I, J+1) 
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FLOW-ARHO*VHAT 

CON ( I , J) -CON ( I ,  J) -FLOW 

CON(I, J+l)-FLOW 

AJP (I, J)-ARHO*DV(l, J+1) 

AJM(I, J+1)-AJP(I,  J) 

GO  TO  407 

406  ARHO-RMN(M1)*XCV(I)*RHO 

CON ( I , J) -CON ( I , J) -ARHO*V ( I, Ml ) 

AJP (I, J)-0. 

407  AP(1, J)-AIP(I, J)+AIM(I, J)+AJP(I, J)+AJM(I,  J) 
403  CONTINUE 


C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

DO  409  J  -  1,M1 
DO  409  I  -  1,L1 
AIPS(I,J,  3)  -  AIP(I,J) 

AIMS  (I,  J,  3)  -  AIM(I,J) 

AJPS{I,J,3)  -  AJP(I,J) 

AJMS(I,J,3)  -  AJMd.J) 

APS(I,J,3)  -  AP(I,J) 

409  CONTINUE 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 


IF(ITER.LE.l)  GO  TO  411 
DO  410  J=2,M2 
DO  410  1-2, L2 
AP ( I , J) -AP ( I, J) /RELAX (NP) 

CON(I, J)-CON(I, J)  +  {1.-RELAX(NP) )*AP(I, J) *P{I,  J) 

410  CONTINUE 

411  CONTINUE 


CALL  SOLVE 


NF-1 

IST-3 

JST-2 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

C 


412 


DO  412  J 
DO  412  I 
CON(I, J) 
AIP  (I,  J) 
AIM<I,  J) 
AJP  (I,  J) 
AJM(I,  J) 
AP(I,J)  ■ 
CONTINUE 


1,M1 

1,L1 

CONSd,  J,l) 
AlPSd,  J,l) 
AIMSd,  J,  1) 
AJPSd,  J,l) 
AJMS (I,  J,l) 
APSd,  J,l) 


C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 


DO  413  J-2,M2 
DO  413  1-3, L2 

413  CONd,  J)-CONd,  J)+DOd,J)*APd,  J)*(Pd-l,  J)-Pd,  J)) 


CALL  SOLVE 

C— — — — — 

NF-2 

IST-2 

JST-3 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 


DO  420  J  -  1,M1 
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DO  420  I  -  1,L1 
CON<I,J)  -  CONS(l,J,2) 

AIP(1,J)  -  A1PS(1,J,2) 

AIM(I,J)  -  A1MS(1,J,2) 

AJP(I,J)  -  AJPS(I,J,2) 

AJM(1,J)  -  AJMS(1,J,2) 

AP(I,J)  -  APS(1,J,2) 

420  CONTINUE 
C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

DO  424  J-3,M2 
DO  424  1-2, L2 

424  CON  (1,  J)  -CON(I,  J)  +DV(I,  J)  *AP  (I,  J)  *  (P  (I,  J-i)  -p  (i,  j) ) 

^  w  MM  MM  MW  M 

CALL  SOLVE 


COEFFICIENTS  FOR  THE  PRESSURE  CORRECTION  EQUATION 


CALL  RESET 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

DO  430  J  -  1,M1 
DO  430  I  -  1,L1 
AIP(I,J)  -  AIPS(I,J,3) 

AIM(I,J)  -  AIMS(I,J,3) 

AJP(I,J)  -  AJPS(I,J,3) 

AJM(I,J)  -  AJMS(I,J,3) 

AP(I,J)  -  APS(I,J,3) 

430  CONTINUE 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

'  NF.3 

IF( .NOT.LSOLVE(NF) )  GO  TO  500 

I  ST-2 

JST-2 

CALL  GAMSOR 

SMAX-0 . 

SSUM-0 . 

DO  460  J-2,M2 
DO  460  1-2, L2 
VOL-YCVR ( J) *XCV ( I ) 

460  CON(l, J)-C0N(I, J)*V0L 
DO  474  1-2, L2 
ARHO-R ( 1 ) *XCV ( I ) *RH0 
474  CON(I,2)-CON(I,2)+ARHO*V(I,2) 

DO  475  J-2,M2 

ARHO-ARX(J) *RHO 

CON { 2 , J ) -CON ( 2 , J) +ARHO*D ( 2  ,  J) 

DO  475  1-2, L2 
IF(1.EQ.L2)  GO  TO  476 
ARHO-ARX ( J) *RHO 
FLOW-ARHO*U (I+l, J) 

CON ( I , J) -CON ( I , J) -FLOW 
CON (I+l , J) -CON (I+l, J) +FLOW 
GO  TO  477 

476  ARHO-ARX ( J) +RHO 

CON  (1 ,  J)  -CON  (I ,  J)  -ARHO*U  (LI,  J) 

477  1F(J.EQ.M2)  GO  TO  478 
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ARBO-BMNiJ-l-l)  *XCV<1>*RH0 
FLOW-ARHO^V  ( I ,  J+1 ) 

COM  (I ,  J)  -CON  (I,  J)  -FLOW 
CON  (I,  J+1)  -CON  (I,  J+1)  +FLOW 
GO  TO  479 

478  ARH0-BMN(M1)*XCV(I)*RH0 

CON  (I ,  J)  -CON  (I,  J)  -ARHO*V (I, Ml) 

479  PC(I,J)-0. 

SMAX-DMAXl  (SMAX,ABS  (CONd,  J)  )  ) 
SSOM-SSOM+COM (I, J) 

475  CONTINUE 


CALL  SOLVE 


COME  HERE  TO  CORRECT  THE  VELOCITIES 

DO  501  J-2,M2 
DO  501  1-2, L2 

IF(I.NE.2)  0(1, J)-U{I,J)+DD(I,J)*(PC(I-1, J)-PC(I, J)) 
IF(J.NE.2)  V(I, J)-V(I,J)+DV(I,J)*(PC(I,J-1)-PC(I,J)) 
501  CONTINUE 
500  CONTINUE 


CALL  GRADIENT  ^ 


COEFFICIENTS  FOR  OTHER  EQUATIONS 


IST-2 

JST-2 

DO  600  NF-NFMIN,NFMAX 
IF(.NOT.LSOLVE(NF))  GO  TO  600 

CALL  RESET 


CALL  GAMSOR 

REL-1. -RELAX (NF) 

DO  602  1-2, L2 
AREA-R(l) *XCV(I) 

FLOW-AREA*V (1,2) *RHO 
DIFF-AREA*GAM (I , 1 ) /YD IF (2 ) 

C— 

CALL  DIFLOW 
C— — — — — — 

602  AJM(I,2)-ACOF+DMAX1(O.ODO,FLOW) 

DO  603  J-2,M2 
FLOW-ARX ( J) *D (2 , J) *RHO  ) 

DIFF-ARX(J) *GAM(1,J)/(XDIF(2)*SX(J) ) 

C— I. -------- 

CALL  DIFLOW 
C— — — — — — 


AIM(2,  J)-ACOF+DMAXl (0.0D0,FLOW) 

DO  603  1-2, L2 
IF(I.EQ.L2)  GO  TO  604 
FLOW-ARX ( J) *U (I+l, J) *RHO 

DIFF-ARX ( J) *2 . *GAM (I, J) +GAM (I+l, J) / ( (XCV (I) *GAM (I+l , J) + 
1  XCV(I+1)*GAM(I,J)+1.0D-30)*SX(J))  ' 

GO  TO  605 

604  FLOW-ARX ( J) *U (LI , J) *RHO 

DIFF-ARX ( J) +6AM (LI, J) / (XDIF (LI) *SX ( J) ) 


605  CALL  DIFLOW 


AIM(I+1, J)-ACOF+DMAXl (0.0D0,FLOW) 
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AIP ( I , J) -AIM ( 1+1 , J) -FLOW 
AREA-RMN ( J+1 ) +XCV ( I ) 

ZF(J.EQ.M2)  GO  TO  606 
FLOW-AREA*V ( I , J+1 ) *RHO 

DIFF-AREA*2.*GAM(I, J) *GAM(I, J+1) / (yCV( J) *GAM(I, J+1) + 

1  YCV(J+1) *GAM(I, J)+1.0D-30) 

GO  TO  607 

606  FLOW-AREA* V( I, Ml )*RHO 
DIFF-AREA*GAM(I,M1) /YDIF(Ml) 

607  CALL  DIFLOW 

AJM ( I , J+1 ) -ACOF+DMAXl (0 . ODO , FLOW) 

AJP ( I , J) -AJM ( 1 , J+1 ) -FLOW 
VOL-YCVR ( J) *XCV ( I ) 

APT-RHO/DT 

AP(I,  J)-AP(I,  J)-APT 

CON (I , J) -CON (I, J) +APT*F (I, J,NF) 

CALL  WALL  - ! - 

AP  (I,  J)  -  (-AP  (I,  J)  *VOL+AIP  (I,  J)  +AIM(I,  J)  +AJP  (I,  J)  +AJM (I,  J)  ) 
1/RELAX (NF) 
c 

testap-abs (ap(i,  j) ) 

if (testap.lt .0 . le-50)  write (io, 6969) nf, i,  j,ap(i,  j) 


CON ( I , J) -CON ( I , J) *VOL+REL*AP ( I , J) *F ( I , J, NF) 
603  CONTINUE 

CALL  SOLVE 

600  CONTINUE 

TIME-TIME+DT 

ITER-ITER+1 

IF ( ITER. GE. LAST)  LSTOP-.TRDE. 

RETURN 
*  END 
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APPENDIX  B 
User  Ronttee  for  Pipe  Flow 

The  USER  routine  for  turbulent  pipe  flow  is  given  in  this  appendix  along  with  the 
results  for  two  problems.  In  this  routine  much  of  the  data  is  defined  in  a  BLOCK  DATA 
section  of  the  code.  The  output  control  is  included  in  the  SUBROUTINE  USER  and  not  in 
a  separate  routine.  A  few  of  the  input  variables  need  explanation.  For  several  of  the  cases 
run  the  inlet  velocity  was  forced  to  be  a  power  law  distribution  that  mimicked  the 
empirically  determined  distributions  reported  in  the  literature  for  fiilly  developed  turbulent 
flow.  The  power  in  the  power  law  distribution  is  EN  in  the  code.  If  IVEL  s  i  then  the 
power  law  distribution  is  invoked.  If  it  =  0  then  a  top  hat  vdodty  distribution  is  used  at 
the  inlet.  For  the  first  ten  iterations  the  velocity  fidd  is  everywhere  set  equal  to  the  inlet 
distribution.  The  grid  is  nonuniform  in  the  radial  (  y  )  direction^  the  spacing  being 
exponential.  PWR  is  the  power  in  the  aq}onential  expression  for  the  grid  spacing.  The 
parameter  LAST  is  the  total  number  of  iterations  to  be  performed.  The  rest  of  the  input 
is  self-explanatory  and  the  listing  has  many  comment  statements  for  explanation  of  each 
section  of  the  routine. 

The  first  problem  for  which  output  is  given  is  CASE  1  in  the  report.  The  grid  has 
42  nodes  axially,  26  radially.  An  exponential  grid  spacing  with  PWR  =  4.4  is  used  and  a 
power  law  velocity  distribution  at  the  inlet  with  EN  =  9.0  is  used.  One  thousand 
iterations  were  performed  in  solving  the  problem.  The  validity  of  the  grid  spacing  is 
checked  by  looking  at  the  value  of  for  points  adjacent  to  the  pipe  wall.  As  can  be 
seen  in  the  output  file,  it  is  well  below  the  upper  limit  of  30.  The  parameter  DIST  is  the 
theoretical  distance  a  node  can  be  from  the  wall  and  still  have  greater  than  11.5. 

The  other  problem  output  given  is  for  Case  3.  Ten  grid  nodes  are  used  in  each 
direction  witn  the  velocity  grids  being  equally  spaced.  A  top  hat  inlet  velocity  distribution 
was  used.  Five  hundred  iterations  were  performed  to  obtain  the  solution.  This  is  an  mcact 
replica  of  the  model  used  by  Pun  and  Spalding  [5]. 
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c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 


c 

c. 


TUBE  VELOCITY 
TURBULENT  FLOW 


BLOCK  DATA 

IMPLICIT  REAL*8 (A-H,0-Z) 

CHARACTER  TITLE*2 

LOGICAL  LSOLVE, LPRINT, LBLK, LSTOP, LPLOT, LBUG 
PARAMETER  (ID-101, JD-10l,NFD-6,NFP3-6,MIJ-101) 
COMMON/BLOCK/F(ID, JD,NFD) ,GAM(ID, JD) , CON (ID, JD)  , 

1  AIP(ID, JD) ,A1M(ID,JD),AJP(ID,JD) , AJM (ID, JD) , AP (ID, JD)  , 

2  X(ID),XD(ID),XDIF(ID),XCV(ID),XCVS(ID), 

3  Y  ( JD) ,  YV  ( JD) ,  YDIF  ( JD) ,  YCV ( JD) ,  YCVS  ( JD)  , 

4  YCVR(JD) ,YCVRS(JD) , ARX(JD) ,ARXJ(JD) , ARXJP (JD) , 

5  R( JD) ,RMN( JD) , SX(JD) ,SXMN (JD) ,XCVI (ID) ,XCVIP (ID) 

COMMON  DU(ID, JD) ,DV(ID, JD) ,  FV (JD) , FVP ( JD) , 

1  FX(ID) ,FXM(ID) ,FY(JD),FYM(JD),PT(MIJ),QT(MIJ) 

COMMON/ INDX/NF, NFMIN, NFMAX, NP , NRHO, NGAM, LI , L2 , L3, Ml , M2  ,  M3  , 

1  1ST, JST, ITER, LAST, IPREF, JPREF,MODE,NTIMES (NPP3) 
COMMON/LOGl/LSOLVE(NFP3) ,LPRINT(NFP3) , LPLOT (NFP3) , LBLK (NFP3) 
COMMON/VARl /TIME, DT, XL, YL, RELAX (NFP3) , RHOCON 
COMMON/TTLE/TITLE (NPP3) 

COMMON/ CNTL / LSTOP 
COMMON/ SORC/SMAX,  SSUM 
CC»1MCN/C0EF /FLOW, DIFF , ACOF 
COMMON/BUG/ LBUG 
COMMON/ INOUT/ IN, 10 

DIMENSION  U(ID, JD) ,V(1D,JD) ,PC(ID, JD) , P (ID, JD) , TKE (ID, JD) , 

•  T£D(XD/(JD) 

EQUIVALENCE  (F (1, 1, 1) ,U (1, 1) ) , (F (1, 1, 2) , V (1, 1) ) , 

;  !ra:l:ll:TCDaH!; 


F(I,J,1)  -  U 
F(I,J,2)  -  V 
F(I,J,3)  -  PC 
F(I,J,4)  -  P 
F(I,J,5)  -  TKE 
F(I,J,6)  -  TED 


DATA  IN, 10/15, 16/ 

DATA  TITLE/ ' D' , ' V' , ' PC' , ' P' , ' KE' , ' ED' / 

DATA  NFMIN, NFMAX/ 5, 6/ 

DATA  NU,NV,NPC,NP,NKE,NED/1,2,3,4,5,6/ 

, .FALSE., .FALSE./ 
, .FALSE., .FALSE./ 
, .FALSE., .false./ 
, .FALSE., .FALSE./ 
, .false., .false./ 
, .FALSE., .FALSE./ 

DATA  LBLK/NFP3*.FALSE./ 

DATA  LSTOP/. FALSE./ 

DATA  TIME, DT, ITER/ 0.0,  l.E+20,  0.0/ 

DATA  LBUG/. false./ 

DATA  RELAX/0.5,0.5,0.8,0.8,1.,1./ 

DATA  NTIMES/6*10/ 

.  .PROBLEM  DATA 


DATA  LSOLVEd  ),LPRINT(1  ),LPLOT(l  )/.true. 
DATA  LSOLVE(2  ),LPRINT(2  ),LPLOT(2  )/.true. 
DATA  LSOLVE(3  ),LPRINT(3  ), LPLOT (3  )/.true 
DATA  LSOLVE(4  ),LPRINT(4  ), LPLOT (4  )/.true. 
DATA  LSOLVE(5  ),LPRINT(5  ), LPLOT (5  )/.true 
DATA  LSOLVE{6  ),LPR1NT(6  ), LPLOT (6  )/.true 
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c 


data  rhocon/1.00/ 

C. . .GRID  DATA 

DATA  IPREF, JPREF/2,2/ 

DATA  MODE/2/ 

END 

C 

(;**********************•***************•***♦*•<«**********•***■*♦*■*•*■*•**•****•** 

C 

SUBROUTINE  USER 
IMPLICIT  REAL*8 (A-H,0-Z) 

CHARACTER  TITLE*2 

LOGICAL  LSOLVE , LPRINT, LBLK, LSTOP , LPLOT , LBUG 
PARAMETER  ( ID-101, JD-101, NFD-6, NFP3-6,MIJ-101 ) 

COMMON/BLOCK/F(ID, JD,NFD) ,GAM(ID, JD) ,CON{ID, JD) , 

1  AIP(ID, JD) ,AIM(ID, JD),AJP(ID,JD) , AJM(ID, JD) ,AP (ID, JD) , 

2  X(ID) ,XU(ID) ,XDIF(ID),XCV(ID) ,XCVS(ID) , 

3  Y ( JD) ,  YV { JD) , YDIF ( JD) , YCV( JD) , YCVS ( JD) , 

4  YCVR(JD) ,YCVRS (JD) ,ARX(JD) ,ARXJ(JD) ,ARXJP(JD) , 

5  R(JD)  ,RMN(JD)  ,SX(JD)  ,SXMN(JD)  ,XCVI  (ID) , XCrVIP  (ID) 

COMMON  DU(ID, JD) ,DV(ID, JD) ,  FV( JD) ,FVP (JD) , 

1  FX  (ID)  , FXM  (ID)  ,FY  ( JD) , FYM(  JD) ,  PT  (MU) , QT  (MU) 

COMMON/ INDX/NF , NFMIN, NFMAX, NP , NRHO, NGAM,  LI ,  L2 ,  L3,  Ml ,  M2 ,  M3 , 

1  1ST, JST, ITER, LAST, IPREF, JPREF, MODE,NTIMES (NFP3) 
COMMON/LOGI/LSOLVE (NFP3) , LPRINT (NFP3) , LPLOT (NFP3) , LBLK (NFP3) 
COMMON/VARI/TIME, DT, XL, YL, RELAX (NFP3) , RHOCON 
COMMON/TTLE/TITLE (NFP3) 

COMMON/CNTL/LSTOP 
COMMON/ SORC/SMAX,  SSUM 
COMMON/COEF/FLOW, DIFF, ACOF 
COMMON/ BUG/ LBUG 
COMMON/ INOUT/ IN, 10 

DIMENSION  U(ID, JD),V(ID, JD) , PC (ID, JD) , P (ID, JD) , TKE (ID, JD) , 

:  TED(ID,JD) 

DIMENSION  AMUT(ID, JD) ,TAUN(ID) ,PLUN(ID) ,GK(ID,JD) 

DIMENSION  TAUNW(ID) ,UOUF (ID) , YOYF (ID) , DOOMAX(ID) , YOR(ID) , 

:  DELTA(ID) ,DY2(ID) 

EQUIVALENCE  (F (1, 1, 1) ,U (1, 1) ) , (F (1, 1, 2) , V (1, 1) ) , 

:  (F(1,1,3),PC(1,1)), (F(1,1,4),P(1,1)), (F(1,1,5),TKE(1,1)), 

:  (F(1,1,6),TED(1,1)) 

C 

C  F(I,J,1)  -  U 

C  F(I,J,2)  -  V 

C  F(I,J,3)  -  PC 

C  F(I,J,4)  -  P 

C  F(1,J,5)  -  TKE 

C  F(I,J,6)  -  TED 

C 

C. . .PROBLEM  DATA 
C 

DATA  AMU/0.0001/ 

C 

DATA  C1,C2,CD,CAPPA,EC0N,PRTKE,PRTED/  1.43,  1.92,  0.09,  0.4,  9.0, 
:  1.0, 1.3  / 

C 

IF  (LBUG)  PRINT  *,"USER" 

C  - 

ENTRY  GRID 

C  - 

IF  (LBUG)  PRINT  *,  "ENTER  GRID" 

C 


c 

LI 

NUMBER 

OF 

X  GRID  POINTS 

c 

Ml 

NUMBER 

OF 

Y  GRID  POINTS 

c 

XL 

LENGTH 

IN 

AXIAL  DIRECTION 

C 

YL 

LENGTH 

IN 

RADIAL  DIRECTION 

c 

XINC 

AXIAL  GRID  SPACIN<^^ 

oo  ooo  n  no  n  ooo  oon  non  o  o  o o o o o o o 


YINC  RADIAL  GRID  SPACING 
REYN  INPUT  REYNOLDS  NUMBER 

PWR  EXPONENT  FOR  EXPONENTIAL  GRID  SPACING 

EN  EXPONENT  FOR  POWER  LAW  INLET  VELOCITY  DIST. 

IVEL  -1  POWER  LAW  INPUT  VELOCITY 
-0  TOP  HAT  INPUT  VELOCITY 


READ(15,*)  LAST 
READ(15,*)  LI,  Ml,  XL,  YL 
READ (15,*)  REYN,  IVEL,  PWR,  EN 
UAVG  -  REYN*AMO/ (RHOCON*2.0*YL) 
L2  -  LI  -  1 
L3  -  LI  -  2 
M2  -  Ml  -  1 


XINC  -  XL/(Ll-2) 

XU(1)  -  0.0 
XU(2)  -  0.0 
DO  1  I  -  2,  LI 

XU(I+1)  -  XU (I)  +  XINC 
1  CONTINUE 


YV(2)  -  0.0 
YYY  -  0.0 

IF  (PWR  .LE.  l.e-20)  THEN 

UNIFORM  GRID 

YINC  -  YL/(Ml-2) 

DO  2  J  -  3, Ml 
YV(J)  -  YV(J-l)  +  YINC 
2  CONTINUE 
ELSE 


EXPONENTIAL  GRID 

YINC  -  1.0/(Ml-2) 

YCOR  -  YL*EXP(-PWR) 

DO  3  J-3,M1 

YYY  -  YYY  +  YINC 

YV(Ji  -  YL*(1.0  -  EXP ( -PWR* YYY ) )  +  YCOR 
3  CONTINUE 
ENDIF 

TURBULENCE  CONSTANTS 

CDS  -  CD**. 5 
CD25  -  CD**. 25 
CD75  -  CD**. 75 
C2M  -  C2  -  1.0 
TC2M  -  2.*C2  -  1;0 

RETURN 


ENTRY  START 

IF  (LBUG)  PRINT  *,  "ENTER  START" 

OPEN  RESTART  FILE 

OPEN (UNIT-12 , FILE-' RESTART' , FORM-' UNFORMATTED' ) 


DO  10  K  -  1,NFD 
DO  10  J  -  1,M1 
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DO  10  I  -  1,L1 
F(I,J,K)  -  0.0 
10  CONTINUE 

C 

C  STARTING  VELOCITY  DISTRIBUTION 

C  BASED  ON  THE  POWER  LAW 

C  U/Umax  -  (1  -  r/R)**(l/n) 

C 

IF  (IVEL  .EQ.  0)  EN  -  1.E30 

UCTR  -  UAVG*(1.0  +  1.5/EN  +  0.5/EN**2) 

C 

DO  11  J  -  1,M2 
DO  11  I  -  1,L1 

U(I,J)  -  UCTR* (1.0  -  Y(J) /Y (Ml) )**(!. /EN) 

TKE(I,J)  -  0.005*0(1, J) **2 

TED(I,J)  -  CD*TKE(I, J)**1.5/ (0.03*Y(M1) ) 

11  CONTINUE 
C 

RETURN 

C 

C  - 

ENTRY  DENSE 

C  - 

IF  (LBUG)  PRINT  *,  "ENTER  DENSE" 

C 

DO  200  J  -  1,M1 
DO  200  I  -  1,L1 

AMUT(I,J)  -  CD*RHOCON*TKE(I, J)**2/ (TED(I, J)+l.E-20) 
200  CONTINUE 
RETURN 
C 

C  - 

ENTRY  BOUND 

C  - 

IF  (LBUG)  PRINT  *,  "ENTER  BOUND" 

IF  (ITER  .LT.  10)  THEN 
DO  250  J  -  1,M2 
DO  250  I  -  1,L1 

U(I,J)  -  OCTR*(1.0  -  Y(J)/Y(M1))**(1./EN) 

250  CONTINUE 

END  IF 
C 

C... BOUNDARY  CONDITIONS 
C 

C  U  -  VELOCITY 
C 

DO  300  I  -  2,  LI 
0(1,1)  -  0(1,2) 

U(I,M1)  -  0.0 
300  CONTINUE 

DO  302  J-1,M2 

U(2,J)  -  DCTR*(1.0  -  Y(J)/y(Ml))**(l./EN) 

0(L1,J)  -  U(L2,J) 

302  CONTINUE 
C 

C  V  -  VELOCITY 

C 

DO  303  I  -  1,L1 
V(I,2)  -  0,0 
V(I,M1)  -  0.0 

303  CONTINUE 

DO  304  J  -  2, Ml 
V(1,J)  -  0.0 
V(L1,J)  -  0.0 

304  CONTINUE 


C 
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C  P  -  PRESSURE  &  PRESSURE  CORRECTION 
C 

do  305  j  "  2,in2 

p(ll,j)  -  (p(12, j)*xcvs<12)-p(13, j)*xdif (ll))/xdif (12) 
pdrj)  -  (p(2,  j)*xcvs(3)-p(3,  j)*xdif(2))/xdif  (3) 

305  continue 

do  306  i  -  2,12 

p(i,l)  -  (p(i,2)*ycvs(3)-p(i,3)*ydi£(2))/ydif (3) 
p(i,inl)  -  (p(i,in2)  *ycv8  {m2) -p.(i,m3)  *ydif  (ml) ) /ydi£(ni2) 

306  continue 

p{l,l)  -  p(2,l)+p{l,2)-p{2,2) 
p{ll,l)  -  p(12,l)+p(ll,2)-p(12,2) 
p(l,ml)  -  p(2,ml)+p(l,in2)-p(2,m2) 
p(ll,ral)-  p(12,ml)+p(ll,m2)-p(12,m2) 

C 

C  TURBULENT  ENERGY 

C 

DO  350  J  -  1,M2 

TKE(1,J)  -  0.005*U(2, J)**2 

TED(1,J)  -  CD*TKE(1,J)**1.5/(0.03*Y(M1) ) 

TKE{L1,J)  -  TKE(L2,J) 

TED (LI, J)  -  TED(L2,J) 

350  CONTINUE 
C 

DO  352  I  -  1,L1 

TKE(I,1)  -  TKE(I,2) 

TED{I,1)  -  TED{I,2) 

352  CONTINUE 
C 

C  WALL  STRESS 

C 

C  SHEAR  STRESS/VELOCITY  &  Y-^  AT  OUTER  RADIUS 

C 

DO  360  I  -  2,L2 

DIST  -  Y(M1)  -  Y(M2) 

CT  -  CD25*DIST 

RK  -  RHOCON*SQRT(ABS(TICE(I,M2) ) ) 

PLDN(I)  -  RK*CT/AMU 
IF  (PLUN(I)  .GT.  11.5)  THEN 
EPLUN  -  ECON*PLDN(I) 

TAUN(I)  -  CAPPA*RK*CD25/DLOG (EPLUN) 

ELSE 

TAUN(I)  -  AMU/DIST 
ENDIF 
C 

C  THE  APPROPRIATE  DISTANCE  FRCNl  THE  NALL  FOR 

C  THE  MAIN  GRID  NODE  NEAREST  THE  NALL 

C 

DELTA(I)  -  12.0*AMU/(RK«CD25  l.e-20) 

360  CONTINUE 
RETURN 

C  - 

ENTRY  GRADIENT 
C  - 

C  COMPUTE  GENK-GK(I,J)  AT  MAIN  GRID  POINTS  FOR  USE 

C  IN  TURBULENT  ENERGY  AND  DISSIPATION  EQUATIONS 

C 

DO  402  J  -  2, M2 
DO  402  I  -  2,L2 

DPX  -  (0(1+1, J)  -  0(1, J) )/XCV(I) 

VPY  -  (V(I,J+1)  -  V(I, J))/YCV(J) 

VOR  -  0.5*(V(I,J+1)  +  V(I,J))/Y(J) 

cccc  UPY  -  0.5+(O(I+l, J+1)  -  0(1+1, J-1)  +  0(1, J+1)  -  0(1, J-D) 

cccc  :  /(Y(J+1)  -  Y(J-l)) 

FACl  -  (YV(J+1)  -  Y(J))/YDIF(J+1) 

FAC2  -  (YV(J)  -  Y(J-1))/YDIF(J) 


ONEC  -  U(I,J)  +  (0(I,J+1}  -  0(I,J))*PAC1 
OSEC  -  0(1, J-1)  +  (0(1, J)  -  0(1, J-1) )*FAC2 
ONWC  -  0(1+1, J)  +  (0(1+1, J+1)  -  0(1+1, J) )*FAC1 
OSWC  -  0(1+1, J-1)  +  (0(1+1, J)  -  0(1+1, J-1) ) *FAC2 
OPY  -  0.5*(01IEC  -  OSEC  +  ONNC  -  OSWC) /Y(rV( J) 

VPX  -  0.5*(V(1+1,J+1)  -  V(1-1,J+1)  +  V(1+1,J)  -  V(1-1,J)) 
:  /(X(I+1)  -  X(l-l)) 

GK(1,J)  -  AMOT(I,J)*(2.*(OPX*OPX  +  VPX+VPX  +  VOR+VOR) 

:  +  (OPY  +  VPX)**2) 

402  CONTINOE 
RETORN 
C 

C  - 


ENTRY  GAMSOR 

C  - 

C 

C  S  -  SC  +  SP*0  SO,  AP  <■  SP  £  CON  -  SC 


IF  (LBOG)  PRINT  *,  "ENTER  GAMSOR" 

^  GO  TO  (510,520,530,599,550,560) ,NP 

C  0  -  VELOCITY 

C 

510  CONTINOE 

DO  512  J  -  1,M1 
DO  511  I  -  1,L1 

GAM(1,J)  -  AMO  +  AMDT(I,J) 

511  CONTINOE 

GAM(L1,J)  -  0.0 

512  CONTINOE 

DO  514  I  -  2, LI 
GAM(I,1)  -  0.0 
514  CONTINOE 


C 

C 

C 

520 


521 


C 

C 

C 

C 

C 

530 


531 


532 


533 


RETORN 

V  -  VELOCITY 

DO  521  J  -  1,M1 
DO  521  I  -  1,L1 

GAM(I,J)  -  AMO  +  AM0T(I,J) 

GAM(1,J)  -  0.0 
CONTINOE 
RETORN 

PFESSORE  CORRECTION 

ADJOST  0  TO  CONSERVE  MASS  FLOW 

CONTINOE 

QIN  -  0.0 

DO  531  J  -  2, Ml 

DY2(J)  -  Y(J)**2  -  Y(J-1)**2 

CONTINOE**  ""  U(2,J))*DY2(J) 

DO  533  I  -  3, LI 
(JOOT  -  0.0 
DO  532  J  -  2, Ml 

wSlilijr”  •  "II.JII'OWCJ) 

QINOOT  -  QIN/QOOT 
DO  533  J  -  1,M2 

U(I,J)  -  0(1, J)*QIN0DT 
CONTINOE 
RETORN 


C 
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c  TKE  -  TURBULENT  KINETIC  ENERGY 

C 

C  SOURCE  TERMS 

C 

550  CONTINUE 

DO  551  J  -  2,M2 
DO  551  I  -  2,L2 

RHOTED  -  RHOCON*TED(I, J) 

CON{I,J)  -  l.S*GK(l,J)  +  C2M*RH0TED 
551  continue'^’  "  -(0.5*GK(1,J)  +  C2*RHOTED)  /  (TKE  (I,  J) +1  .E-20) 

C 

C  NALL  TERMS 

C 

DO  553  I  -  2,L2 

UP  -  0.5*(U(1+1,M2)  +  U(I,M2)) 

UPY  -  UP/YDIP(M1) 

TAUNW(I)  -  TAUN(I)*DP 
CON(I,M2)  -  TAUNW(I)*UPY 

553  “  ■^**^®^°****2*TKE(I,M2)*OPY/(TAUNW(I)+1.e-20) 

DO  555  J  -  1,M1 

DO  555  I  -  1,L1 

GAM(I,J)  -  AMD  +  AMUTd,  J)/PRTKE 

555  CONTINUE 

DO  556  I  -  1,L1 
GAM(I,1)  -  0.0 

556  CONTINUE 

DO  557  J  -  1,M1 
GAM{L1,J)  -  0.0 

557  CONTINUE 
RETURN 

TED  -  TURBULENT  ENERGY  DISSIPATION 

SOURCE  TERMS 

60  DO  561  J  -  2, M2 
DO  561  I  -  2,L2 

TEOK  -  TED(I,J)/(TKE(I,J)+1.E-20) 

RHOTED  -  RHOCON*TED(I,  J) 

CON(I,J)  -  (C1*GK(I,J)  +  C2M*RHOTED) *TEOK 
AP(I,J)  -  -TC2M*RHOCON*TEOK 
561  CONTINUE 

NALL  TERMS 

DO  563  I  -  2,L2 

CON(I,m2)  -  CD75*ABS(TKE(I,M2)**1.5)*1.E30 
/ (CAPPA*YDIF (Ml) ) 

AP(I,M2)  -  -1.E30 
563  CONTINUE 

DO  565  J  -  1,M1 
DO  565  I  -  1,L1 

5«5  ■  ""  * 

DO  566  I  -  1,L1 
GAM(I,1)  -  0.0 

566  CONTINUE 

DO  567  J  -  l,Ml 
GAM(L1,J)  -  0.0 

567  CONTINUE 
RETURN 

C 

599  RETURN 
C 
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c  - 

ENTRY  WALL 

C  - 

C 

C  AJP  -  An,  AJM  -  As,  AIP  -  Ae,  AIM  -  Aw 

C 

GO  TO  (700,720,799,799,750,760),  NF 
C  - 

c 

C  U  -  VELOCITY 

C 

700  DO  702  I  -  2,L2 

AJP(I,M2)  -  (TAUN(I-1)*FXM(I)  +  TAON (I) *FX(I) ) *XDIF (I) *Y (Ml) 
702  CONTINUE 
RETURN 

V  -  VELOCITY 

CONTINUE 
RETURN 

TKE  -  TURBULENT  KINETIC  ENERGY 

CONTINUE 
RETURN 

TED  -  TURBULENT  ENERGY  DISSIPATION 

CONTINUE 
RETURN 
RETURN 


ENTRY  OUTPUT 


IF  (LBUG)  PRINT  *,  "ENTER  OUTPUT" 

IF  ( ITER. NE. LAST)  RETURN 

CREATE  RESTART  FILE 

REWIND  12 
WRITE (12)  ITER 
DO  20  K  -  1,NFD 
DO  20  J  -  1,M1 
DO  20  I  -  1,L1 

WRITE(12)  F(I,J,K) 

20  CONTINUE 

C 

CLOSE (UNIT-12, STATUS-' KEEP'  ) 

REFP  -  P(L1,2) 

DO  22  J  -  1,M1 
DO  22  I  -  1, LI 

P(I,C>  -  P(I,J)  -  REFP 

22  CONTINUE 
C 

C  RATIO  OF  VOLUME  INFLOW  TO  VOLUME  OUTFLOW 

C 

QOUT  -  0.0 
DO  23  J  -  2,M1 

QOUT  -  QOUT  +  (U(L1-1,J-1)  +  U(L1-1, J) ) *DY2 (J) 

23  CONTINUE 

QINOUT  -  QIN/(QOUT  +  l.Oe-20) 

C 

LOOT  -  LI  -  3 
DO  24  J  -  1,M1 

UFRIC  -  SQRT(TAUNW(LOOT)/RHOCON)  +  l.OE-20 
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C 

C 

c 

720 

C 

C 

C 

750 

C 

C 

C 

760 

799 

C 

C 

C 

C 

C 

C 


YFRIC  -  AMU/ SQRT(RHOCON*TAONW( LOOT))  +  l.OE-20 
DODF(J)  -  0(L0UT, J)/DFRIC 
YOYF(J)  -  (Y(M1)  -  Y(J)) /YFRIC 
UOOMAX(J)  -  D (LOUT, J)/0 (LOOT, 1) 

YOR(J)  -  Y(J)/Y(M1) 

24  CONTINUE 
C 

NH  -  Ml/2  +  1 
NL  -  Ll/2  +  1 
606  FORMAT(7(lX,e9.3)) 

WRITE (10, 612)  QINOUT 
612  FORMAT (/5X,'QIN/QOOT  -',F6.2) 

WRITE (10, 614) 

614  FORMAT (/5X, 'MID-LENGTH  U  DISTRIBUTION',/) 

WRITE (10, 606)  (U(NL, J), J-1,M1) 

WRITE (10, 615) 

615  FORMAT (/5X, 'AXIAL  U  DISTRIBUTION',/) 

WRITE (10, 606)  (0(1,1), 1-2, LI) 

WRITE (10, 616) 

616  FORMAT (/5X, 'LEFT  -  U  DISTRIBUTION',/) 

WRITE (10, 606)  (U(2,J),J-1,M1) 

WRITE (10, 618) 

618  FORMAT (/5X, 'RIGHT  -  U  DISTRIBUTION',/) 

WRITE (10, 606)  (U(L1,J), J-1,M1) 

WRITE (10, 619)  REYN 

619  FORMAT (//,2X, 'REYNOLDS  NUMBER  -  ',E10.4,//, 

5X, ' (YMAX-Y) /YFRIC' , /) 

WRITE (10, 606)  (YOYF(J),  J-1,M1) 

WRITE (10, 620) 

620  FORMAT (//, 5X, 'U/OFRIC  AT  I  -  LI  -  3',/) 

WRITE (10, 606)  (UOUF(J),  J-1,M1) 

WRITE (10, 621) 

621  F0RMAT(//,5X, 'Y(J)/Y(M1)',/) 

WRITE (10, 636)  (YOR(J),  J-1,M1) 

WRITE (10, 622) 

622  FORMAT (//,5X,'U/0MAX  AT  I  -  LI  -  3',/) 

WRITE (10, 606)  (UOUMAX(J),  J-1,M1) 

WRITE (10, 625) 

625  FORMAT  (/5X,'X  NODE  LOCUST  IONS' , /) 

WRITEdO,  636)  (X(l)  , I-1,L1) 

WRITE (10,  626) 

626  FORMAT ( /5X, 'Y  NODE  LOCATIONS',/) 

WRITE (10, 636)  (Y (I) , I-1,M1) 

WRITEdO,  627) 

627  FORMAT (/5X, 'XU  LOCATIONS',/) 

WRITEdO,  636)  (XU(I)  ,I-1,L1) 

WRITE (10, 628) 

628  FORMAT  (/5X,'YV  LOCy^TIONS' , /) 

WRITEdO,  636)  (YV(I) , I-1,M1) 

636  FORMAT (8 (IX, F8. 5)) 

WRITE (10, 640)  DIST 

640  FORMAT (//,5X, 'I,  Y+,  TAU/U,  TAU,  DELTA, 

elO.4,,/) 

DO  60  I  -  1, LI 

WRITE  (10,  642)  I,PLUN(I)  ,TAUNd)  ,TAUNW(I)  ,DELTA(I) 
642  FORMAT(4X,I2,3(1X,F8.2),1X,E10.4) 

60  C(»1TINUE 

WRITEdO,  644) 

WRITEdO,  606)  (TKE(1,J),  J-1,M1) 

644  FORMAT (//,5X, 'TEE  AT  I  -  1',/) 

WRITEdO,  645) 

WRITE (10, 606)  (TED(1,J),  J-1,M1) 

645  rORMAT(//,5X,'TED  AT  I  -  !',/> 

WRITEdO,  646) 

WRITE (10, 606)  (TKE(NL,J),  J-1,M1) 

FORMAT (//,5X,'TKE  AT  MID-LENGTH',/) 
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DIST 


646 


WRITE (10, 647) 

WRITE(IO,606)  {TED(m.,J), 

647  F0RMAT(//,5X, 'TED  XT  MID-LENGTH',/) 

WRITE (10, 648) 

WRITE (10, 606)  (TKE(L0UT,J),  J-1,M1) 

648  FORMAT (//, 5X, 'TKE  AT  I  -  LI  -  3',/) 

WRITE (10, 649) 

WRITE (10, 606)  (TED(L00T, J) ,  J-1,M1) 

649  FORMAT (//,5X, 'TED  AT  I  -  LI  -  3',/) 

WRITE  (10,  656)  LAST, LI, Ml 

656  FORMAT (/5X, 'NO.  ITERATIONS  -' , 

+  15, 2X, 'Ll, Ml  -  ',213,/) 

WRITE (10, 657) (I,NTIMES (I» , I-1,NFP3) 

657  FORMAT (/2X, 'EQN  SWEEPS' , /, 6 (5X, 12, IX,  12) ) 

IF  ( ITER. EQ. LAST)  LSTOP-.TRDE. 

C 

C  WRITE  DATA  TO  FILE  17  FOR  USE  BY  PLOT  PACKAGE 

C 

WRITE (17, 680)  LI, Ml 
WRITE(17, 681)  (X(I),I-1,L1) 

WRITE(17,681)  (Y(l) ,1-1,M1) 

WRITE(17,681)  (X0(I),I-1,L1) 

WR1TE(17,681)  (YV(I) ,I-1,M1) 

RHO-RHOCON 
DO  4000  J  -  1,M1 
WRITE(17,682)  (RH0,I-1,L1) 

C  WRITE(IO,606)  (C0N(I, J) , I-LFAB,L3) 

4000  CONTINUE 

DO  4010  J  -  1,M1 
WRITE(17,682)  (O (I, J) , 1-1, LI) 

4010  CONTINUE 

DO  4020  J  -  1,M1 
WRITE(17,682)  (V (I, J) , I-l,  LI) 

4020  CONTINUE 

DO  4030  J  -  1,M1 
WRITE(17,682)  (F (I, J, 5) , I-l, LI) 

4030  CONTINUE 

680  FORMAT (IX, 215) 

681  FORMAT(7 (1X,E10.4) ) 

682  F0RMAT(6(1X,E12.6) ) 

RETURN 

END 
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COMPUTATION  FOR  AXISYMMETRIC  SITUATION 
^  **********************'***************** 


QIN/QOUT  -  1 . 00 
MID-LENGTH  U  DISTRIBUTION 

0.2-79E+03  0.279E+03  0.276E+03  0.273E+03  0.269E+03  0.266E+03  0.262E+03 
o!258E+03  0.254E+03  0.249E+03  0.245E+03  0.240E+03  0.235E+03  0.230E+03 
0.224E+03  0.219E+03  0.213E+03  0.206E+03  0.199E+03  0.192E+03  0.184E+03 
0.174E+03  0.162E+03  0.147E+03  0.118E+03  O.OOOE+00 

AXIAL  U  DISTRIBUTION 

0.293E+03  0.289E+03  0.289E+03  0,288E+03  0.288E+03  0.287E+03  0.287E+03 
0.286E+03  0.286E+03  0.285E+03  0.285E+03  0.284E+03  0.283E+03  0.283E+03 
0.282E+03  0.281E+03  0.281E+03  0.280E+03  0.280E+03  0.279E+03  0.279E+03 
0.278E+03  0.278E+03  0.277E+03  0.277E+03  0.277B+03  0.277E+03  0.277E+03 
0.276E+03  0.276E+03  0.276E+03  0.276E+03  0.276E+03  0.277E+03  0.277E+03 
0.277E+Q3  0.277E+03  0.277E+03  0.277E+03  0.277E+03  0.277E+03 

LEFT  -  U  DISTRIBUTION 

0.293E+03  0.290E+03  0.284E+03  0.278E+03  0.272E+03  0.267E+03  0.261E+03 
0.256E+03  0.250E+03  0.245E+03  0.240E+03  0.235E+03  0.229E+03  0.224E+03 
0.219E+03  0.214E+03  0.208E+03  0.203E+03  0.197E+03  0.191E+03  0.185E+03 
0.178E+03  0.170E+03  0.159E+03  0.139E+03  O.OOOE+00 

RIGHT  -  U  DISTRIBUTION 

0.277E+03  0.277E+03  0.276E+03  0.273E+03  0.270E+03  0.267E+03  0.262E+03 
0.258E+03  0.253E+03  0.248E+03  0.244E+03  0,238E+03  0.233E+03  0.228E+03 
0.223E+03  0.217E+03  0.212E+03  0.206E+03  0.200E+03  0.194E+03  0.186E+03 
0.178E+03  0.168E+03  0.152E+03  0.128E+03  O.OOOE+00 


REYNOLDS  NUMBER  -  0.5000E+06 
(YMAX-Y) /YFRIC 

0.988E+04  0.899E+04  0.741E+04  0.615E+04  0.510E+04  0.423E+04  0.350E+04 
0.289E+04  0.239E+04  0.197E+04  0.162E+04  0.133E+04  0.103E+04  0.882E+03 
0.714E+03  0.574E+03  0.457E+03  0.360E+03  0-280E+03  0.213E+03  0.157E+03 
O.llOE+03  0.713E+02  0.391E+02  0.122E+02  O.OOOE+00 


U/UFRIC  AT  I  -  LI  -  3 

0.281E+02  0.281E+02  0.279E+02  0.277E+02  0.274E+02  0.270E+02  0.266E+02 
0.262E+02  0,257E+02  0.252E+02  0.247E+02  0.242E+02  0.237E+02  0.231E+02 
0.226E+02  0.220E+02.  0.214E+02  0.207E+02  0.200E+02  0.193E+02  0.184E+02 
0.174E+02  0,163E+02  0.148E+02  0.H8E+02  O.OOOE+00 


Y(J)/Y(M1) 


0.00000 

0.75837 

0.95370 

0.99876 


0.08989 

0.80091 

0.96352 

1.00000 


0.24951 

0.83631 

0.97168 


0.37728 

0.86579 

0.97848 


0.48365 

0.89033 

0.98414 


0.57220 

0.91075 

0.98886 


0.64592 

0.92776 

0.99278 


0.70729 

0.94192 

0.99605 


U/UMAX  AT  I  -  LI  -  3 
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O.lOOE-fOl 

0.933E-t-00 

0.804E+00 

0.622E+00 

O.lOOE-fOl 

0.917E+00 

0.783E+00 

0.580E-<-00 

0.995E+00 

0.900E-»-00 

0.761E+00 

0.527E+00 

0.986E-«-00 

0.882E-I-00 

0.738E+00 

0.422E-«-00 

0.975E+00 

0.863E+00 

0.713E+00 

O.OOOE+OO 

0.963E-I-00 

0.84-;E-t-00 

0.686E-t-00 

0.948E-i-00 

0.825E-I-00 

0.656E-t-00 

YPLUS 

0.467  f04 
0.137E+04 
0.337E+03 
0.521E+02 

0.425E+04  0.3SlE-t-04 
0.113E+04  0.930E+03 
0.271E+03  0.216E+03 
0.337E+021  0.185E+02 

0.291E-<-04 

0.765E+03 

0.170E+03 

0.577E+01 

0.241E+04 

0.627E+03 

0.132E+03 

O.OOOE-t-OO 

0.200E-I-04 

0.512E-I-03 

O.lOlE-t-03 

0.165E-I-04 

0.417E-I-03 

0.741E-I-02 

OPLUS 

AT  I  -  LI 

-  3 

0.593E+02 

0.554E+02 

0.477E+02 

0.369E+02 

0.593E+02 

0.544E+02 

0.465E+02 

0.344E+02 

0.590E-»-02 

0.534E+02 

0.452E+02 

0.312E+02 

0.585E+02 
0.523E+02 
0 . 438E-I-02 
0.250E-i-02 

0.579E-I-02 

0.512E+02 

0.423E-t-02 

O.OOOE-t-OO 

0.571E-I-02 

0.501E-I-02 

0.407E-I-02 

0.563E-t-02 

0.489E-I-02 

0.389E-t-02 

X  NODE  LOCATIONS 


0.00000 

0.10000 

0.30000 

0.50000 

0.70000 

0.90000 

1.10000 

1.30000 

1.50000 

1.70000 

1.90000 

2.10000 

2.30000 

2.50000 

2.70000 

2.90000 

3.10000 

3.30000 

3.50000 

3.70000 

3.90000 

4.10000 

4.30000 

4.50000 

4.70000 

4.90000 

5.10000 

5.30000 

5.50000 

5.70000 

5.90000 

6.10000 

6.30000 

6.50000 

6.70000 

6.90000 

7.10000 

7.30000 

7.50000 

7.70000 

7.90000 

8.00000 

Y  NODE  LOCATIONS 

0.00000 

0.00899 

0.02495 

0.03773 

0.04836 

0.05722 

0.06459 

0.07073 

0.07584 

0.08009 

0.08363 

0.08658 

0.08903 

0.09108 

0.09278 

0.09419 

0.09537 

0.09635 

0.09717 

0.09785 

0.09841 

0.09889 

0.09928 

0.09960 

0.09988 

0.10000 

XU  LO 

CATIONS 

0.00000 

0.00000 

0.20000 

0.40000 

0.60000 

0.80000 

1.00000 

1.20000 

1.40000 

1.60000 

1.80000 

2.00000 

2.20000 

2.40000 

2.60000 

2.80000 

3.00000 

3.20000 

3.40000 

3.60000 

3.80000 

4.00000 

4.20000 

4.40000 

4.60000 

4.80000 

5.00000 

5.20000 

5.40000 

5.60000 

5.80000 

6.00000 

6.20000 

6.40000 

6.60000 

6.80000 

7.00000 

7.20000 

7.40000 

7.60000 

7.80000 

8.00000 

YV  LOCATIONS 

0.00000 

0.00000 

0.01798 

0.03192 

0.04353 

0.05320 

0.06124 

0.06794 

0.07352 

0.07816 

0.08202 

0.0^524 

0.08792 

0.09015 

0.09200 

0.09355 

0.09483 

0.09591 

0.09680 

0.09754 

0.09816 

0.09867 

0.0991C 

0.09946 

0.09975 

0.10000 

I, 

Y+, 

TAD/D, 

TAU,  DELTA,  DIST  -0.1235E-03  XAUWALL  -  0.2182E-t-02 

1 

0.00 

0.00 

0.00  O.OOOOE-i-00 

2 

13.73 

0.92 

125.21  0.1080E-03 

3 

12.94 

0.88 

110.59  0.1146E-03 

4 

12.43 

0.85 

101.46  0.1192E-03 

5 

12.38 

0.85 

100.70  0.1197E-03 

6 

12.34 

0.85 

100.01  0.1201E-03 

7 

12.31 

0.85 

99.57  0.1204E-03 

8 

12.29 

0.85 

99.29  0.1206E-03 

9 

12.28 

0.85 

99.13  0.1207E-03 

10 

12.28 

0.85 

99.05  0.1207E-03 
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11 

12.28 

0.85 

99.02 

0.1207E-03 

12 

12.28 

0.85 

99.04 

0.1207E-03 

13 

12.28 

0.85 

99.08 

0.1207E-03 

14 

12.29 

0.85 

99.15 

0.1206E-03 

15 

12.29 

0.85 

99.22 

0.1206E-03 

16 

12.29 

0.85 

99.30 

0.1206E-03 

17 

12.30 

0.85  ' 

99.38 

0.1205E-03 

18 

12.30 

0.85 

99.45 

0.1205E-03 

19 

12.31 

0.85 

99.51 

0.1204E-03 

20 

12.31 

0.85 

99.56 

0.1204E-03 

21 

12.31 

0.85 

99.60 

0.1204E-03 

22 

12.32 

0.85 

99.63 

0.1204E-03 

23 

12.32 

0.85 

99.64 

0.1203E-03 

24 

12.32 

0.85 

99.64 

0.1204E-03 

25 

12.31 

0.85 

99.63 

0.1204E-03 

26 

12.31 

0.85 

99.59 

0.1204E-03 

27 

12.31 

0.85 

99.55 

0.1204E-03 

28 

12.31 

0.85 

99.48 

0.1204E-03 

29 

12.30 

0.85 

99.41 

0.1205E-03 

30 

12.30 

0.85 

99.32 

0.1205E-03 

31 

12.29 

0.85 

99.22 

0.1206E-03 

32 

12.28 

0.85 

99.11 

0.1207E-03 

33 

12.28 

0.84 

98.99 

0.1207E-03 

34 

12.27 

0.84 

98.88 

0.1208E-03 

35 

12.26 

0.84 

98.77 

0.1209E-03 

36 

12.26 

0.84 

98.66 

0.1209E-03 

37 

12.25 

0.84 

98.56 

0.1210E-03 

38 

12.25 

0.84 

98.56 

0.1210E-03 

39 

12.20 

0.84 

97.60 

0.1215E-03 

40 

12.60 

0.86 

104.79 

0.1176E-03 

41 

13.08 

0.89 

113.43 

0.1133E-03 

42 

0.00 

0.00 

0.00 

O.OOOOE+00 

TKE  AT  I  -  1 

0.421E+03  0.421E+03  0.403E+03  0.387E+03  0.371E+03  0.356E+03  0.341E+03 
0,327E+03  0.314E+03  0.300E+03  0.288E+03  0.275E+03  0.263E+03  0.251E+03 
0.240E+03  0.228E+03  0.217E+03  0.206E+03  0.195E+03  0.183E+03  0.171E+03 
0.158E+03  0.144E+03  0.126E+03  0.971E+02  O.OOOE+00 


TED  AT  I  -  1 

0.259E+06  0,259E+06  0.243E+06  0.228E+06  0.214E+06  0.201E+06  0.189E+06 
0.178E+06  0.167E+06  0.156E+06  0.146E+06  0.137E+06  0.128E+06  0.119E+06 
O.lllE+06  0.104E+06  0.960E+05  0.887E+05  0.815E+05  0.744E+05  0.672E+05 
0.597E+05  0.517E+05  0.423E+05  0.287E+05  O.OOOE+00 


TKE  AT  MID-LENGTH 

0,755E+02  0.755E+02  0.851E+02  0.961E+02  0.106E+03  0.116E+03  0.126E+03 
0.136E+03  0.147E+03  0.158E+03  0.170E+03  0.182E+03  0.196E+03  0.209E+03 
0.223E+03  0.237E+03  0.251E+03  0.265E+03  0.278E+03  0.292E+03  0,305E+03 
0.320E+03  0.339E+03  0.380E+03  0.331E+03  O.OOOE+00 


TED  AT  MID-LENGTH 

0.684E+04  0.684E+04  0.868E+04  0.113E+05  0.146E+05  0.190E+05  0.248E+05 
0.327E+05  0.433E+05  0.577E+05  0.770E+05  0.103E+06  0.137E+06  0.183E+06 
0.245E+06  0.327E+06,  0.439E+06  0.593E+06  0.810E+06  0.113E+07  0.162E+07 
0.244E+07  0.404E+07  0.810E+07  0.201E+08  O.OOOE+00 
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TKE  AT  I  -  LI  -  3 


0.579E+02  0.579E+02  0.636E+02  0.724E+02 
0.125E+03  0.141E+03  0.156E+03  0.172E+03 
0.230E+03  0.244E-I-03  0.257E-t-03  0.270E-t-03 
0.323E+03  0.344E+03  0.387E+03  0.325E+03 


0.835E+02 

0.187E+03 

0.282E-»-03 

O.OOOE-t-00 


0.962E-t-02 

0.202E+03 

0.295E+03 


O.llOE+03 

0,216E+03 

0.308E-«-03 


TED  AT  I  -  LI  -  3 


0.414E+04  0.414E+04  0.526E+04  0.733E+04 
0.314E+05  0.438E+05  0.603E+05  0.818E+05 
0.256E+06  0.339E+06  0.450E+06  0.603E+06 
0.247E+07  0.411E+07  0.815E+07  0.195E+08 


0.106E+05 

O.llOE+06 

0.818E-«-06 

O.OOOE+00 


0.154E+05 

0.146E-«-06 

0.113E+07 


0.221E+05 

0.194E-t-06 

0.163E+07 


NO.  ITERATIONS  -  1000  LI, Ml  -  42  26 


EQN  SWEEPS 

1  10  2  10  3  10 


4  10 


5  10  6  10 
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Output  for  turbulent  pipe  flow  Case  3. 


50 


p  =  1.0  /t  =  0.0001 


COMPUTATION  FOR  AXISTMMETRIC  SITUATION 


QIN/QOUT  -  1.00 

MID-LENGTH  U  DISTRIBUTION 

0.523E+02  0.523E+02  0.523E+02  0.523E+02  0.522E+02  0.521E+02  0.516E+02 
0.498E+02  0.443E+02  O.OOOE+00 

AXIAL  U  DISTRIBUTION 

0.500E+02  0.507E+02  0.512E+02  0.518E+02  0.523E+02  0.528E+02  0.532E+02 
0.536E+02  0.536E+02 

LEFT  -  U  DISTRIBUTION 

0.500E-«-02  0.500E-t-02  O.SOOE+02  0.500E-t-02  0.500E-i-02  0.500E-t^02  O.SOOE-t-02 
0.500E-t-02  0.500E-<-02  O.OOOE+OO 

RIGHT  -  U  DISTRIBUTION 

0.536E+02  0.536E-«-02  0.53€E-*-02  0.536E-t-02  0.S34E-f02  0.b30E+02  0.S18E-<-02 
0.487E->-02  0.425E+02  O.OOOE-t-00 

REYNOLDS  NUMBER  -  O.lOOOE+06 
(YMAX-Y) /YFRIC 

0.239E+04  0.224E+04  0.194E+04  0.164E+04  0.134E+04  0.104E+04  0.746E+03 
0.447E+03  0.149E+03  O.OOOE+00 

U/UFRIC  AT  I  -  LI  -  3 

0.221E-«-02  0.221E+02  0.221E-t-02  0.221E+02  0.221E+02  0.220E-«-02  0.217E-«-02 
0.207E+02  0.182E+02  O.OOOE+00 

Y(J)/Y<M1) 

0.00000  0.06250  0.18750  0.31250  0.43750  0.56250  0.68750  0.81250 

0.93750  1.00000 

U/UMAX  AT  I  -  LI  -  3 

O.lOOE-t-01  O.lOOE+01  O.lOOE-t-01  0.100E-)-01  0.998E-«-00  0.995E+00  0.982E-t-00 
0.938E+00  0.823E-<-00  O.OOOE+00 

X  NODE  LOCATIONS 


0.00000 

1.87500 

0.12500 

2.00000 

0.37500 

0.62500 

0.87500 

1.12500 

1.37500 

1.62500 

Y  NODE  LOCATIONS 

0.00000 

0.09375 

0.00625 

0.10000 

0.01875 

0.03125 

0.04375 

0.05625 

0.06875 

0.08125 

XU  LOCATIONS 

0.00000 

0.00000 

0.25000 

0.50000 

0.75000 
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1.00000 

1.25000 

1.50000 

1.75000  2.00000 

YV  LOCATIONS 

0.00000  0.00000  0.01250  0.02500  0.03750  0.05000  0.06250  0.07500 

0.08750  0.10000 

I,  Y+,  TAO/U,  TAO,  DELTA,  DIST  -0.6250E-02 


1 

0.00 

0.00 

0.00 

O.OOOOE+00 

2 

164.38 

0.14 

7.09 

0.4563E-03 

3 

162.34 

0.14 

6.77 

0.4620E-03 

4 

158.01 

0.14 

6.41 

0.4746E-03 

5 

154.39 

0.14 

6.12 

0.4858E-03 

6 

151.37 

0.13 

5.89 

0.4955E-03 

7 

148.87 

0.13 

5.69 

0.5038E-03 

8 

147.42 

0.13 

5.59 

0.5088E-03 

9 

146.98 

0.13 

5.56 

0.5103E-03 

10 

0.00 

0.00 

0.00 

O.OOOOE+00 

TKE  AT  I  -  1 

0.125E+02  0.125E+02  0.125E+02  0.125E+02  0.125E+02  0.125E+02  0.125E+02 
0.125E+02  0.125E+02  O.OOOE+00 


TED  AT  I  -  1 

0.133E+04  0.133E+04  0.133E+04  0.133E+04  0.133E+04  0.133E+04  0.133E+04 
0.133E+04  0.133E+04  O.OOOE+00 


TKE  AT  MID-LENGTH 

0.352E+01  0.352E+0H 0.350E+01  0.350E+01  0.351E+01  0.360E+01  0.411E+01 
0.689E+01  0.196E+02  O.OOOE+00 


TED  AT  MID-LENGTH 

0.148E-»-03  0.148E-»-03  0.147E-i-03  0.147E-t-03  0.149E-«-03  0.164E-t-03  0.259E+03 
0.892E+03  0.568E-«-04  O.OOOE+00 


TKE  AT  I  -  LI  -  3 

0.301E+01  0.301E+01  0.299E-<-01  0.299E+01  0.301E+01  0.315E+01  0.390E+01 
0.720E-f01  0.189E+02  0.000E-«-00 


TED  AT  I  -  LI  -  3 

O.lllE+03  O.lllE+03  O.llOE+03  O.llOE+03  0.114E+03  0.133E+03  0.246E+03 
0.932E-«-03  0.541E-«-04  O.OOOE-t-OO 

NO.  ITERATIONS  -  500  LI, Ml  -  10  10 
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appendix  c 

Test  Chamber 


This  and  the  Mowing  appendices  through  F  describe  the  routines  nsed  to  modd  the 
test  chamber.  This  appendix  has  a  list  of  terms  used  in  both  the  flow  fidd  modd  and  the 
agent  transport  modd.  The  terms  associated  with  the  flow  fidd  modd  are  given  first, 
those  for  the  agent  transport  modd  that  differ  follow.  This  list  of  terms  is  to  be  used  in 
conjunction  with  the  list  of  variables  given  in  Appendix  A.  The  following  two  figures 
illustrate  the  meaning  of  some  of  the  indices  used  to  define  the  grid  structure  of  the  modd. 
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Figure  Cl.  The  subdivision  of  an  x- direction  region 

of  length  IL  into  ICELL*s.  A  y- direction 
region  is  treated  in  the  saae  vay. 


north  vail 

— —I — —I - I-//-I- — T— — 1 - 


Figure  C2.  The  test  chaaber  shoving  the  cell  (control  voluae} 
numbering  schene.  The  north  vail  is  the  outer  vail 
of  the  lain  tube.  Vail  functions  are  used  at 
the  north,  south,  east,  and  vest  vails. 
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oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


VARIABLES  USED  IN  THE  MODEL 

-  PRIMARY  UNKNOWNS  - 

D(I,J)  AXIAL  VELOCITY 

V(I,J)  RADIAL  VELOCITY 

P(I,J)  PRESSURE 

PC(I,J)  PRESSURE  CORRECTION 

TED(I,J)  TURBULENT  ENERGY  DISSIPATION 

TKE(I,J)  TURBULENT  KINETIC  ENERGY 

-  SECONDARY  UNKNOWNS  - 

AMUT(I,J)  TURBULENT  VISCOSITY 

GK(I,J)  2*AMOT* (e] : tal  —  le]  IS  THE  STRAIN  RATE  TENSOR 

-  INPUT  QUANTITIES  - 

NSTEADY  -  1  STEADY  STATE  PROBLEM 

-  0  TRANSIENT  PROBLEM 

DT  TIME  STEP  —  ENTER  IF  NSTEADY  -  1 

LAST  MAXIMUM  NUMBER  OF  ITERATIONS  OR  TIME  STEPS 

NTIMES(NEQ)  NUMBER  OF  SOLUTION  SWEEPS  FOR  EACH  EQUATION 
BETWEEN  UPDATES 

RELAX (NEQ)  RELAXATION  FACTORS  FOR  EACH  EQUATION 
MODE  -  1  CARTESIAN  COORDINATES 

-  2  AXISYIMETRIC  COORDINATES 

-  3  POLAR  COORDINATES 

IPREF,JPREF  GRID  POINT  LOCATION  FOR  THE  REFERENCE  PRESSURE 

-  PHYSICAL  PROPERTIES  AND  TURBULENCE  CONSTANTS  - 

RHOCON  CONSTANT  VALUE  OF  DENSITY 

AMU  LAMINAR  VISCOSITY 

C1,C2  CONSTANTS  IN  THE  ENERGY  DISSIPATION  EQUATION 

CD  CONSTANT  IN  THE  TURBULENT  VISCOSITY  FORMULA 

CAPPA  VON  KARMAN'S  CONSTANT  IN  THE  WALL  LAW 

ECON  WALL  LAW  ROUGHNESS  CONSTANT 

PRTKE  PRANDTL  NUM  IN  THE  KINETIC  ENERGY  EQUATION 

PRTED  PRANDTL  MUM  IN  THE  ENERGY  DISSIPATION  EQUATION 

ALP  ALPHA  IN  THE  ARMOUR-CANNON  EQUATION 

BET  BETA  IN  THE  ARMOUR-CANNON  EQUATION 

ARAT  SURFACE-AREA-TO-VOLUME  RATIO  FOR  THE  FABRIC 

DIA  PORE  DIAMETER  FOR  THE  FABRIC 

EPS  VOID  FRACTION  FOR  THE  FABRIC 

FABTHK  EFFECTIVE  THICKNESS  OF  THE  FABRIC 

• 

UINLET  AVERAGE  INLET  VELOCITY 

UINJECT  TEST  CELL  INJECTION  VELOCITY 

-  MESH  INPUT  DATA  - 


IREG 

ICELL(I) 

IDCRS(I) 

JREG 

JCELL(J) 

JDCRS(J) 

XL(I) 

ENXd) 


NUMBER  OF  X  -  DIRECTION  MESH  REGIONS 
NUMBER  OF  CELLS  IN  EACH  X  -  REGION 

-  1  decreasing  mesh  spacing 

-  0  INCREASING  MESH  SPACING  IN  EACH  REGION 
NUMBER  OF  Y  -  DIRECTION  MESH  REGIONS 
NUMBER  OF  CELLS  IN  EACH  Y  -  REGI(»I 

-  1  DECREASING  MESH  SPACING 

-  0  INCREASING  MESH  SPACING  IN  EACH  REGICNl 
LENGTH  OF  EACH  X  -  REGION 

VALUE  OF  N  IN  POWER  LAW  OF  THE  GRID 
(S**(l/N)) 

LENGTH  OF  EACH  Y  -  REGION 
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YL(J) 


C  ENY(J)  VALUE  OF  N  IN  POWER  LAW  OF  THE  GRID 

C  (S**(l/N)) 

C 

C  - TEST  CELL  LOCATION - 

C 

C  IBOXl  FIRST  I-DIR  CELL  (FABRIC) 

C  IBOX2  LAST  I-DIR  CELL  AT  BACK  WALL 

C  JBOX  J-DIR  CELL  AT  TOP-WALL 

C 

C  GRID  POINT  RANGES  FOR  IMPERVIOUS  BOX  WALLS 
C  AND  THE  RANGE  FOR  THE  INJECTION  VEL(X:iTY 
C 

C  LBl  -  IBOXl  +  1 

C  LB2  -  IBOX2  +  1 

C  MBl  -  1 

C  MB2  -  JBOX  +  1 

C  MUl  -  MBl 

C  HU2  -  MB2  -  1 

C 

C  RANGE  FOR  GRID  POINTS  NEXT  TO  N,S,E,W  WALLS  RESPECTIVELY 
C 

C  LNWl  -  1 

C  LNW2  -  LI 

C  MNW  -  M2 

C  LSWl  -  LBl 

C  LSW2  -  LB2 

C  MSW  -  MB2  +  1 

C  LEW  -  LBl  -  1 

C  MEWl  -  1 

C  MEW2  -  MB2 

C  LWW  -  LB2  +  1 

C  MWWl  -  1 

C  MWN2  -  MEW2 

C 

C  GRID  POINT  RANGES  FOR  FABRIC  AND 
C  THE  WIDTH  OF  THE  FABRIC  CELLS 
C 

C  LFl  -  LBl 

C  LF2  -  LBl  +  1 

C  MFl  -  1 

C  MF2  -  MB2  -  1 

C  WFl  -  XCV(LFl) 

C  WF2  -  XCV(LF2) 

C 

C  OUTER  RADIUS  AND  DISTANCES  FROM  WALLS  TO 

C  ADJACENT  GRID  POINT 

C 

C  RMAX  -  Y(M1) 

C  DISTN  -  YDIF(Ml) 

C  DISTS  -  Y(MSW)  -  YV(MSW) 

C  DISTE  -  XUCLEN+l)  -  X(LEW) 

C  DISTW  -  X(LWW)  -  XU (LWW) 

C 

C  VARIABLES  FOR  THE  TRANSPORT  OF  AGENT  MODEL 

C  THAT  DIFFER  FROM  THE  MODEL  FOR  THE  VELOCITY 

C 

C  -  PRIMARY  UNKNOWN  - 

C 

C  AGNT(I,J)  CONCENTRATION  OF  AGENT 

C 

C  -  INPUT  QUANTITIES  - 

C  -  PHYSICAL  PROPERTIES  AND  TURBULENT  CONSTANTS  - 

C 

C  ETA  DIFFUSION  COEFFICIENT  FOR  FLUID 

C  ETAF  DIFFUSION  COEFFICIENT  FOR  FABRIC 

C  PRCON  TURBULENT  SCHMIDT  NUMBER 
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APPENDIX  D 
User  Rontiiie  for  Veledty 


The  structure  of  the  user  routines  for  the  chamber  model  follows  that  given  in  the 
chart  in  Appendix  A.  It  differs  slightly  from  that  used  in  Appendix  B.  There  is  no 
BLOCK  DATA  section.  Data  are  either  defined  or  read  in  the  subroutine  USER.  Output 
is  controlled  by  the  subroutine  PUTOUT  in  Appendix  E.  The  modd  given  here  is  for  the 
case  of  radial  injection  of  uncontaminated  gas.  The  range  of  nodes  in  the  axial  direction 
along  which  the  injection  takes  place  is  defined  by  LVl  and  LV2  defined  on  page  102. 
The  injection  values  are  enforced  after  ENTRY  BOUND  on  pages  103  and  104  and  the 
corresponding  coefficients  in  the  finite  differen<%  equation  are  given  the  appropriate  values 
Mowing  ENTRY  GAMSOR  on  page  106. 

Following  the  listing  is  output  for  the  case  with  an  inlet  velocity  of  U.  s  50in/s 
and  and  injection  vdodty  of  V.^j  s  20m/8  as  discussed  in  the  main  body  of  the  text. 
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TEST 


CHAMBER 


TURBULENT  FLOW 


SUBROUTINE  USER 
IMPLICIT  REAL*8 {A-H,0-Z) 

IMPLICIT  INTEGER (I-N) 

PARAMETER  ( ID-1 51 , JD-1 5 1 , NFD-7 , NFP3-7 , MI J-1 51 , NREG-10 ) 

C 

LOGICAL  LSOLVE , LBLK, LSTOP 
C 

COMMON/BLOCK/F(ID, JD,NFD) ,GAM(ID, JD) ,CON(ID, JD) , 

:  AIP(ID, JD) ,AIM(ID,JD),AJP(ID, JD) ,AJM(ID, JD) ,AP(ID, JD), 

;  X ( ID ) , XU ( ID ) , XDIF { ID ) , XCV ( ID ) , XCVS ( ID)  , 

:  Y(JD) ,YV(JD) ,yDIF(JD) ,YCV(JD) , YCVS (JD) , 

;  YCVR(JD),YCVRS(JD),ARX(JD),ARXJ{JD),ARXJP(JD), 

;  R(JD) ,RMN(JD),SX(JD),SXMN(JD),XCVI{ID) ,XCVIP(ID) 

C 

COMMON  DU(ID, JD) ,DV(ID, JD) ,  FV(JD) ,FVP (JD) , 

:  FX(ID) ,FXM(ID) ,FY(JD) ,FYM(JD) ,PT (MIJ)  ,QT (MIJ) 

C 

COMMON/ INDX/NF , NFMIN, NFMAX, NP , NRHO, NGAM, LI ,  L2 ,  L3 ,  Ml  ,M2 ,  M3 , 
;  1ST, JST,  ITER, LAST, IPREF, JPREF,MODE,NTIMES (NFP3) 

C 

COMMON/LOGI/LSOLVE (NFP3) , LBLK (NFP3) 

C 

CC»1M0N/VARI/TIME,DT, RELAX (NFP3) ,RHOCON 
C 

COMMON/CNTL/LSTOP 

C 

CCMmON/SORC/SMAX,  SSUM 
C 

COMMON/ COEF/FLOW, DIFF, ACOF 
C 

COMMON/ INOUT/ IN, 10 
C 

COMMON/STRESS/TODNdD)  ,TOUS(ID)  ,TOVE(ID)  ,TOVW(ID) , 

:  TAUN(ID),TAUS(ID),TAUE(ID),TADW(ID) , 

:  TODNI(ID),TOVEI(ID),TOVWI(ID), 

:  TADNI(ID),TADEI(ID) ,TADWI(ID) ,AMUT(ID, JD) 

C 

COMMON/PROP/  AMD, Cl, C2, CD, CAPPA, ECON, PRTKE, PRTED, 

ALP,BET,ARAT,DIA,EPS,FABTHK,DINLET,  DINJECT, 

:  CD5,CD25,CD7.5,C2M,TC2M,CDR2 

C 

COMMON/BOX/  WFl , WF2 , SCFAC, AA, BB, DISTN, DISTS , DISTE , DISTW, 

:  DISTNI,DISTEI,DIS'^n 

C 

CCX4M0N/ IBOX/  LBl ,  LB2  , MB2 ,  LNHl ,  LNW2 ,  LSWl ,  LSW2 ,  MNW,  MSW, 

:  MEWl , MEN2 , MWWl, MNW2 , LEW, LWW, LFl , LF2 , MFl , MF2 , 

:  MNWI,LWWI,LEWI 

C 

DIMENSION  0(ID, JD),V(ID,JD),PC(ID,JD) ,P (ID, JD) , TKE (ID, JD) , 
:  TED(ID, JD) ,GK(IO, JD) 

C 

DIMENSION  TURBE(ID) 

C 

DIMENSION  ICELL (NREG) , IDCRS (NREG) , JCELL (NREG) , JDCRS (NREG) , 
:  XL (NREG), YL (NREG), ENX (NREG), ENY (NREG) 

C 

EQUIVALENCE  (F  (1, 1, 1)  ,D (1, 1) )  ,  (F  (1, 1,  2) ,  V (1, 1) ) , 
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:  (F(1,1,3),PC(1,1)), (F (1,1,4), P (1,1)), 

(F(1,1,5),TKE(1,1)),  (P(1,1,6),TED(1,1)) 

F(I,J,1)  -  D 
F(I,J,2)  -  V 
F(I,J,3)  -  PC 
F(I,J,4)  -  P 
F(I,J,5)  -  TKE 
F(I,J,6)  -  TED 

.  . .PROBLEM  DATA 


DATA  IN, 10  /15,16/ 

DATA  NFMIM,NFMAX  /5,6/ 

DATA  ND,NV,NPC,NP,NKE,NED  /I, 2, 3, 4, 5, 6/ 

DATA  LSOLVE(l)  /.true./ 

DATA  LS0LVE(2)  /.true./ 

DATA  LS0LVE(3)  /.true./ 

DATA  LS0LVE(4)  /.true./ 

DATA  LS0LVE(5)  /.true./ 

DATA  LS0LVE(6)  /.true./ 

DATA  LS0LVE(7)  /.FALSE./ 


DATA  LBLK(l) 
DATA  LBLK(2) 
DATA  LBLK(3) 
DATA  LBLK(4) 
DATA  LBLK(5) 
DATA  LBLK(6) 
DATA  LBLK(7) 


/.FALSE./ 

/.FALSE./ 

/.FALSE./ 

/.FALSE./ 

/.FALSE./ 

/.FALSE./ 

/.FALSE./ 


DATA  LSTOP  /.FALSE./ 

DATA  TINY, BIG, SMALLEST, BIGGEST  /l.E-30,  l.E+30,  l.E-70,  l.E+70/ 


ENTRY  INPUT 


READ (IN,*)  NSTEADY 
DT  -  BIG 

IF  (NSTEADY  .NE.  1)  READ(5,*)  DT 
READ (IN,*)  LAST,  (NTIMES (NEQ) ,  NEQ-1,NFP3) 

READ (IN, *)  (RELAX (NEQ),  NEQ-1,NFP3) 

READ(IN,*)  MODE,  IPREF,  JPREF 

READ ( IN, * )  RHOCON, AMU, Cl , C2 , CD, CAPPA, ECON, PRTKE , PRTED 
READdN,*)  ALP,BET,ARAT,DIA,EPS,FABTHK 
READ (IN,*)  UINLET,  UINJECT 
C 

WRITE (10,*)  'NSTEADY' 

WRITE (10, 6100)  NSTEADY 
WRITE (10,*)  'DT' 

WRITE (10, 6102)  DT 

WRITE (10,*)  'LAST,  (NTIMES (NEQ) ,  NEQ-1,NFP3)' 

WRITE (10, 6100)  LAST,  (NTIMES (NEQ) ,  NEQ-1,NFP3) 

WRITE (10,*)  'MODE,  IPREF,  JPREF' 

WRITE (10, 6100)  MODE,  IPREF,  JPREF 

WRITE (10, *)  ' RHOCON, AMD, Cl, C2 , CD, CAPPA, ECON, PRTKE, PRTED' 
WRITE (10, 6102)  RHOCON, AMD, Cl, C2, CD, CAPPA, ECON, PRTKE, PRTED 
WRITE (10,*)  'ALP,BET,ARAT,DIA,EPS,FABTHK' 

WRITE (10, 6102)  ALP,BET,ARAT,DIA,EPS,FABTHK 
WRITE (10,*)  'UINLET,  UINJECT' 

WRITE (10, 6102)  UINLET,  UINJECT 
C 

6100  FORMAT (1515,/) 

6102  FORMAT (7 (IX, ElO. 4),/)  , 


ooo  oooo  on  oooo  on  o  oooooo  oo  ooo  oooo  ooo 


TORBOLENCE  CONSTANTS 


CDS  -  CD**. 5 

CD25  -  CD**. 25 

CD75  -  CD**. 75 

C2M  -  C2  -  1.0 

TC2M  -  2.*C2  -  1.0 

CDR2  -  CD*RHOCON**2 

COK  -  BIG*CD75/CAPPA 

MESH  GENERATION  DATA 

zeaddn,*)  Ireg,  (lcell(i), 
readdn,*)  jreg,  (jcell(j), 
readdn,*)  (xld),  enx(l), 
readdn,*)  (yl(j),  eny(j). 

idcrs (1) 
jdcrs(j) 
i-l,ireg) 
j-1, jreg) 

TEST  CELL 

READ (IN,*)  IBOXl, IBOX2, JBOX 

ENTRY  GRID 

i-l,ireg) 
j-1, jreg) 


LI  NUMBER  OF  U  VELOCITY  POINTS 

Ml  NUMBER  OF  V  VELOCITY  POINTS 


call  meshgen (Izeg, Icellr idcrs, xl, enx, xu, 11) 
call  meshgen( jreg, jcell, jdcrs,yl,eny,yv,ml) 

RETURN 


ENTRY  START 


OPEN  RESTART  FILE 

OPEN (UNIT-12, FILE-' RESTART' , FORM-' UNFORMATTED'  ) 


DO  10  K  -  1,NFD 
DO  10  J  -  1,M1 
DO  10  I  -  1,L1 
F(I,J,K)  -  0.0 
10  CONTINUE 

GRID  POINT  RANGES  FOR  IMPERVIOUS  BOX  WALLS 
AND  THE  RANGE  FOR  THE  INJECTION  VELOCITY 

LBl  -  IBOXl  +  1 
LB2  -  IBOX2  +  1 
MBl  -  1 
MB2  -  JBOX  +  1 

RANGE  FOR  GRID  POINTS  NEXT  TO  N,S,E,W  NALLS  RESPECTIVELY 

LNWl  -  1 
LNW2  -  LI 
MNW  -  M2 
LSWl  -  LBl 
LSW2  -  LB2 
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c 

c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 

c 


c 

c 

c 


c 


MSW  -  MB2  +  1 
LEW  -  LBl  -  1 
MEWl  -  1 
MEW2  -  MB2 
LHW  -  LB2  -f  1 
MWHl  -  1 
MHW2  -  MEH2 
MNWI  -  MB2  -  1 
LWWI  -  LBl  +  2 
LEWI  -  LB2  -  1 

GRID  POINT  RANGES  FOR  FABRIC  AND 
THE  WIDTH  OF  THE  FABRIC  CELLS 

LFl  -  LBl 
LF2  -  LBl  +  1 
MFl  -  1 
MF2  -  MB2  -  1 
WFl  -  XCV(LFl) 

WF2  -  XCV(LF2) 

GRID  POINT  RANGES  FOR  INJECTION  VELOCITY 

LVl  -  IBOXl  +  5 
LV2  -  IBOX2  -  2 

SCALED  COEFFICIENTS  FOR  THE  ARMODR-CANNON  EQUATION 

SCFAC  -  FABTHK/(WF1  +  WF2) 

AA  -  SCFAC*ALP*ARAT**2/EPS**2 
BB  -  SCFAC*BET*RHOCON/(DIA*EPS**2) 

OUTER  RADIUS  AND  DISTANCES  FROM  NALLS  TO 
ADJACENT  GRID  POINT 


RMAX  -  Y(M1) 

DISTN  -  YDIF(Ml) 

DISTS  -  Y(MSW)  -  YV(MSW) 

DISTE  -  XD(LEW+1)  -  X(LEW) 
DISTW  -  X(LWW)  -  XU(LWW) 
DISTNI  -  Y(MNWI)  -  YV(MNWI) 
DISTEI  -  XU(LEWI+1)  -  X(LEWI) 
DISTWI  -  X(LWWI)  -  XU (LWWI) 

WALL  FACTORS 


FCTRN  -  COK/DISTN 
FCTRS  -  COK/DISTS 
FCTRE  -  COK/DISTE 
FCTRW  -  COK/DISTW 
FCTRNI  -  COK/DISTNI 
FCTREI  -  COK/DISTEI 
FCTRWI  -  COK/DISTWI 


WRITE (10,*)  ' 
WRITE (10, 6102) 
WRITE (10,*)  ' 
WRITE (10, 6102) 
WRITE (10,*)  ' 
WRITE (10, 6102) 
WRITE (10,*)  ' 
WRITE (10, 6102) 
WRITE (10,*)  ' 
WRITE (10, 6102) 
WRITE (10,*)  ' 
WRITE (10, 6100) 


AA,  BB,  SCFAC' 

AA,  BB,  SCFAC 

RMAX,  DISTN,  DISTS,  DISTE,  DISTW' 
RMAX,  DISTN,  DISTS,  DISTE,  DISTW 
DISTNI,  DISTEI,  DISTWI' 

DISTNI,  DISTEI,  DISTWI 
FCTRN,  FCTRS,  FCTRE,  FCTRW' 

FCTRN,  TCtKS,  FCTRE,  FCTRW 
FCTRNI,  FCTREI,  FCTRWI' 

FCTRNI,  FCTREI,  FCTRWI 
IBOXl,  IB0X2,  JBOX' 

IBOXl,  IB0X2,  JBOX 
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C 

C 

C 


WRITE (10, *)  ' 
WRITE (10, 6100) 
WRITE (10, *)  ' 
WRITE (10, 6100) 
WRITE (10,*)  ' 
WRITE (10, 6100) 
WRITE (10, *)  ' 
WRITE (10,  6100) 
WRITE (10,*)  ' 
WRITE (10, 6100) 
WRITE (10,*)  ' 
WRITE (10, 6102) 
WRITE (10,*)  » 
WRITE (10, 6100) 


LBl,  LB2,  MBl,  MB2' 

LBl,  LB2,  MBl,  MB2 
LNWl,  LNW2,  MNW,  LSWl,  LSW2,  MSW 
LNWl,  LNW2,  MNW,  LSWl,  LSW2,  MSW 
LEW,  MEWl,  MEW2,  LWW,  MWWl,  MWW2 
LEW,  MEWl,  MEW2,  LWW,  MWWl,  MWW2 
LEWI,  LWWl,  MMWI' 

LEWI,  LWWI,  MNWI 
LFl,  LF2,  MFl,  MF2' 

LFl,  LF2,  MFl,  MF2 
WFl,  WF2' 

WFl,  WF2 
LVl,  LV2' 

LVl,  LV2 


INITIAL  CONDITIONS 


DO  11  J  - 
DO  11  I  - 
0(1, J)  - 
TKE(I,  J) 
TED(I, J) 

11  CONTINUE 

DO  12  J  - 
DO  12  I  - 
0(1, J)  - 
TKE(1,  J) 
TED(I, J) 

12  CONTINUE 
RETURN 


1,M2 

1,L1 

UINLET 

-  0.005*U(I, J)**2 

“  CD*TKE (1, J) **1. 5/ (0.03*RMAX) 

1,MB2 

LB1,LB2 

0.0 

-  0.0 
-  0.0 


ENTRY  DENSE 


DO  200  J  -  1,M1 
DO  200  1  «  1,L1 
DENOM  -  ABS(TED(I,J))  +  TINY 
200  C0N??we''^’  “  ^^‘*^OCON"^«E(I,J)**2/DENOM 

DO  202  J  -  1,MB2 
DO  202  1  -  LB1,LB2 
AMDT(I,J)  -  0.0 
202  CONTINUE 
return 


ENTRY  BOUND 


AXIS  AND  OUTER  WALL 


DO  300  I  -  2, LI 


300 


U(I,1) 
D(I,M1) 
V(l,2) 
V(I,M1) 
TKE(I,1) 
TKE(I,M1) 
TED (1,1) 
TED  (I, Ml) 
TURBEd) 
CONTINUE 


-  U(I,2) 

-  0.0 
-  0.0 
-  0.0 

-  TKE(I,2) 

-  0.0 

-  TED(I,2) 

-  0.0 

-  ABS(TKE(I,MNW>) 


DO  301  I  -  LV1,LV2 
V(I,2)  -  UINJECT 
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301 


V(I,3)  -  OINJECT 
CONTINUE 


C 

C 

C 

C 


CALL  WALLSTRESS (ECON,CAPPA,CD25,AMU,RHOCON,DISTN,TURBE,TOON,2,L1) 


INLET  AND  OUTLET 


DO  302  J-1,M2 
U(2,J) 
U(L1,J) 
V(1,J) 
V{L1,J) 
TKE(1,J)  - 
TKE(L1,J)  - 
TED(1,J)  - 
TED (LI, J)  - 
302  CONTINUE 


UINLET 
U(L2, J) 

0.0 

0.0 

0.005*U(2, J)**2 
TKE(L2, J) 

CD*TKE{1, J)**1.5/ (0.03*RMAX) 
TED(L2, J) 


C 

C  OUTER  AND  BACK  NALLS  OF  CHAMBER 

C 

DO  304  I  -  LB1,LB2 
U(I,MB2)  -  0.0 
V(I,MB2)  -  0.0 
V(I,MB2+1)  -  0.0 
TKE(I,MB2)  -  0.0 
TED(I,MB2)  -  0.0 
TORBE(I)  -  ABS(TKE(I,MSW) ) 

304  CONTINUE 


C 


C 


C 


C 

C 

C 

C 


C 


C 

C 


CALL  WALLSTRESS (ECON,CAPPA,CD25, AMO,RHOCON, DISTS, TURBE, TOUS, 
LB1,LB2) 


DO  306  J  -  1,MB2 
U(LB2,J)  -  0.0 
U(LB2+1,J)  -  0.0 
V(LB2,J)  -  0.0 
TKE<LB2,J)  -  0.0 
TED(LB2,J)  -  0.0 
TURBE (J)  -  ABS(TKE(LWW, J) ) 

306  CONTINUE 

CALL  WALLSTRESS  (ECON,  CAPPA,  CD25 ,  AMO,  RHOCON,  DISTW,  TURBE,  TOVW, 
:  1,MB2) 


FABRIC 

DO  308  J  -  1,MB2 
V(LF1,J)  -  0.0 
V(LF2,J)  -  0.0 
TURBE  (J)  -  ABS  (TKE  (LEM,  J) ) 

308  CONTINUE 

CALL  WALLSTRESS (ECON, CAPPA, CD 2 5, AMO, RHOCON, DISTE, TURBE, TOVE, 
1,MB2) 


ENTRY  GRADIENT 


Q  - 

C  COMPUTE  GENK-GK(I,J)  AT  MAIN  GRID  POINTS  FOR  USE 

C  IN  TURBULENT  ENERGY  AND  DISSIPATION  EQUATIONS 

C 

DO  404  J  -  2, M2 

OPX  -  (Ua+l,J)  -  U(I, J))/XCV(I) 

VPY  -  (V(I,J+1)  -  V(I,J))/YCV(J) 
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VOR  -  0.5*(V(I, J+1)  +  V(I,J))/Y(J) 

ONSIDE  -  0.5* ((0(1, J)  +  0(1+1, J) ) *FYM(J+1) 

+  (0(1, J+1)  +  0(1+1, J+1))*FY(J+1)) 
OSSIDE  -  0.5*((O(I, J-1)  +  0(1+1, J-1) ) *FYM(J) 
:  +  (0(1, J)  +  0(1+1, J))*FY(J)) 

VESIDE  -  0.5*((V(I,J)  +  V(I, J+1) ) *FXM(I+1) 

:  +  (V(1+1,J)  +  V(I+l, J+1) )*FX(I+1) ) 

VWSIDE  -  0.5*((V(1-1, J)  +  V(I-1,J+1))*FXM(I) 
:  +  (V(I,J)  +  V(I, j+1) )*FX(I)) 

OPY  -  (ONSIDE  -  OSSIDE) /YCV(J) 

VPX  -  (VESIDE  -  VWSIDE) /XCV (I) 

GK(I,J)  AMOTd, J)*(2.*(0PX*0PX  +  VPX*VPX  + 
:  +  (OPY  +  VPX) **2) 

402  CONTINOE 
404  CONTINOE 
RETORN 


ENTRY  GAMSOR 


S  -  SC  +  SP*0  SO,  AP  -  SP  £  CON  -  SC 
GO  TO  (500, 550, 600, 799, 650, 700) ,NF 

-  O  -  VELOCITY  - 


500 


501 


CONTINOE 
DO  502  J  -  1,M1 
DO  501  1  -  1,L1 

GAM(1,J)  -  AMO  +  AMOTd,  J) 
CONTINOE 


GAM(L1,J)  -  0.0 
502  CONTINOE 

DO  504  I  -  2,  LI 
GAM(I,1)  -  0.0 

504  CONTINOE 

^  BOX  TOP 

DO  505  I  -  LB1,LB2 
AP(I,MB2)  -  -BIG 

505  CONTINOE 

^  BOX  BACK 

DO  506  J  -  1,MB2 

AP(LB2,J)  -  -BIG 
AP(LB2+1,J)  -  -BIG 

506  CONTINOE 

^  FABRIC 

DO  508  J  -  1,MF2 
I  -  LFl 

APd,J)  .  -0.5*XCV(I)*AA*AMD 
I  -  LF2 

AP(I,J)  -  -XDIF(I)*AA*AMO 
I  -  LF2  +  1 

AP(I,J)  -  -0.5*XCV(I-1)*AA*AMO 
CONTINOE 

INJECTOR 

RETORN 


508 


C 

C 

C 

550 


V  -  VELOCITY 


CONTINOE 
DO  552  J  -  1,M1 
DO  552  I  -  i,Ll 

GAM(I,J)  -  amO  +  AMOTd,  J) 
GAM(1,J)  -  0.0 


VOR*VOR) 
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552  CONTINUE 

C  BOX  TOP 

DO  555  I  -  DB1,LB2 

AP(I,MB2)  -  -BIG 

AP(I,MB2+1)  -  -BIG 

555  CONTINUE 

C  BOX  FRONT  £  BACK 

DO  556  J  -  2,MB2 
AP(LF1,J)  -  -BIG 
AP(LF2,J)  -  -BIG 
AP(LB2,J)  -  -BIG 

556  CONTINUE 

C  INJECTOR 

DO  559  J  -  2,3 
DO  559  I  -  LV1,LV2 

CON(l,J)  -  BIG*DINJECT 
AP(I,J)  -  -BIG 

559  CONTINUE 
RETURN 

C 

C  -  PRESSURE  CORRECTION  - 

C 

600  CONTINUE 
RETURN 

C 

C  -  TKE  -  TURBULENT  KINETIC  ENERGEY 

C 

C  SOURCE  TERMS 


C 

650  CONTINUE 

DO  651  J  -  2,M2 
DO  651  I  -  2,L2 

RHOTED  -  RHOCON*TED(I,  J) 

CON(I,J)  -  1.5*GK(I,J)  +  C2M*RHOTED 
AP(I,J)  -  -(0.5*GK(I,J)  +  C2*RHOTED)/(TKE(I, J)+TINY) 
651  CONTINUE 

C 

C  WALL  TERMS 

C 

DO  653  I  -  2,L2 

OP  -  ABS(0.5*(O(I+l,MNW)  +  U(1/MNW))) 

UPY  -  UP/DISTN 

TAUN(l)  -  ABS(TOUN(I)*OP) 

CON(I,MNW)  -  TAUN<I)*OPY 

AP(I,MNW)  - CDR2*TKE(I,MNW)*UPY/(TAON{I)+TINY) 

653  CONTINUE 

C 

DO  655  I  -  LSW1,LSN2 

DP  -  ABS(0.5*(D(I+1,MSW)  +  U(1,MSW))) 

UPY  -  UP/DISTS 

TAUSd)  -  ABS(TOOS(I)*DP) 

CON(I,MSW)  -  TAUS(I)*OPY 

AP(I,MSW)  -  -CDR2*TKE(I,MSW)*UPY/{TADS(I)+TINy) 

655  CONTINUE 

DO  657  J  -  MEW1,MEN2 

VP  -  ABS(0.5*(V(LEW, J+1)  +  V(LEW,J))) 

VPX  -  VP/DISTE 

TAOE(J)  -  ABS(TOVE(J)*VP) 

CON (LEW, J)  -  TAUE(J)*VPX 

AP(LEW,J)  -  -CDR2*TKE(LEW, J)*VPX/(TAUE(J)+TINY) 

657  CONTINUE 

C 

DO  659  J  -  MNN1,MHW2 

VP  -  ABS(0.5*(V(LWM, J+1)  +  V{LNM,J))) 

VPX  -  VP/DISTW 
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-i  n  o  a  Ci  n 


TAUW(J)  -  ABS(TOVW(J)*VP) 

CON(LWW, J)  -  TAUW{J)*VPX 

AP(LWW,J)  -  -CDR2*TKE(LWW, J)*VPX/(TADW(J)+TINY) 
659  CONTINUE 

DO  665  J  -  1,M1 
DO  665  I  -  1,L1 

GAM(I,J)  -  AMU  +  AMUT (I, J) /PRTKE 

665  CONTINUE 
DO  666  I  -  1,L1 

GAM(1,1)  -  0.0 

666  CONTINUE 

DO  667  J  -  1,M1 
GAM(L1,J)  -  0,0 

667  CONTINUE 

BOX 

DO  675  J  -  1,MB2 
DO  675  I  -  LB1,LB2 
AP(I,J)  -  -BIG 
675  CONTINUE 
RETURN 


-  ted  -  TURBULENT  ENERGY  DISSIPATION 

SOURCE  TERMS 


00  DO  701  J  -  2, M2 
DO  701  I  -  2,L2 

DENOM  -  ABS(TKE(I, J)+TINY) 

TEOK  -  ABS (TED (1, J) ) /DENOM 
RHOTED  -  RHOCON*ABS(TED(I, J) ) 

CON(I,J)  -  (C1*GK(I,J)  +  C2M*RHOTED) *TEOK 
AP(I,J)  -  '•TC2M*RHOCON<'TEOK 
701  CONTINUE 


WALL  TERMS 


DO  703  I  -  2,L2 

ATK  -  ABS(TKE(I,MNW)) 

CON(I,MNW)  -  FCTRN*ATK*SQRT (ATK) 
AP(I,MNW)  -  -BIG 
703  CONTINUE 

DO  705  I  -  LSW1,LSW2 
ATK  -  ABS(TKE(I,MSW)) 

CON(I,MSW)  -  FCTRS*ATK*SQRT(ATK) 
AP(I,MSW)  -  -BIG 
705  CONTINUE 

DO  707  J  -  MEW1,MEH2 
ATK  -  ABS(TKE(LEW, J)) 

CON (LEW, J)  -  FCTRE*ATK*SQRT(ATK) 
AP  (LEW,  J)  -  -BIG 
707  CONTINUE 

DO  709  J  -  MWW1,MWW2 
ATK  -  ABS(TKE(LWW,J)) 

CON(LWW, J)  -  FCTRW*ATK*SQRT(ATK) 
AP(LWW,J)  -  -BIG 
709  CONTINUE 
C 


DO  725  J  - 
DO  725  I  - 
GAM(I,  J) 

725  CONTINUE 
DO  726  I  - 

GAM(I,1) 

726  CONTINUE 


1,M1 

1,L1 

-  AMD  +  AMUTd,  J)/prted 

1,L1 

-  0.0 
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DO  727  J  -  1,M1 
GAM(L1,J)  -  0.0 
727  CONTINUE 

C  BOX 

DO  735  J  -  1,MB2 
DO  735  I  -  LB1,LB2 
AP(I,J)  -  -BIG 
735  CONTINUE 
RETURN 
C 

799  RETURN 
C 

C  - 

ENTRY  WALL 

C  - 

C 

C  AJP  -  An,  AJM  -  As,  AIP  -  Ae,  AIM  -  Aw 

C 

GO  TO  (800,820,899,699,850,860),  NF 

C  - 

C 

C  U  -  VELOCITY 

C 

800  CONTINUE 

DO  802  I  -  2,L2 

AJP(I,MNM)  -  (TOUN(I-l)*FXM(I)  +  TODN (I) *FX (I) ) *XDIF (I) *YV(M1) 

802  CONTINUE 

DO  803  I  -  LB1,LB2 

AJM(I,MSW)  -  (TOUS(I-l) *FXM(I)  +  TODS (I) *FX(I) ) *XDIF(I) *YV(MSW) 

803  CONTINUE 
RETURN 

C 

C  V  -  VELOCITY 

C 

820  CONTINUE 

DO  823  «7  *  MCWXfM£W2 

AIP  (LEW,  J)  -  (TOVE(J-l)*FYM(J)  +  TOVE  ( J)  *FY  ( J) )  *YDIF  ( J) '•YV(  J) 

823  CONTINUE 

DO  824  J  -  MWW1,MWW2 

AIM(LWW,J)  -  (TOVW(J-l)*FYM(J)  +  TOVW ( J) *FY ( J) ) *YDIF ( J) *YV ( J) 

824  CONTINUE 
RETURN 

C 

C  TKE  -  TURBULENT  KINETIC  ENERGY 

C 

850  CONTINUE 
RETURN 
C 

C  TED  -  TURBULENT  ENERGY  DISSIPATION 

C 

860  CONTINUE 
RETURN 
899  RETURN 

C  - 

ENTRY  OUTPUT 
C  - 

C 

IF  ( ITER. NE. LAST)  RETURN 
C 

CALL  PUTOUT 
C 

RETURN 

END 

c 

subrout Ine  meshgsn ( nrsg, ncsll , ndcr s , si , on , x , nxs ) 
inqpllcit  rsal*8  (a-h,o-z) 
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c 


implicit  integer (i-n) 

dimension  ncell (1) » ndcra (1) ,el (1) ,en  <1) #  x (1) 


c 


c 


c 


c 


c 

c 

c 


x(l)  -  0.0 
x(2)  -  0.0 
mo  “  2 

mf  “  ncell <1>  +  mo 
nxs  —  mo 

do  1  n  ••  l,nreg 

m£  ••  ncell  (n)  +  mo 
x(m£)  ■  x(mo)  +  el(n) 
pwr  “  1.0/en(n) 
nx  -  ncell (n) 
nsgn  ■  ndcrs(n) 
nxs  -  nxs  +  nx 

call  coord(pwr#nx,nsgn,mo,mf,x) 
mo  m£ 

m£  *  ncell (n+1)  +  mo 
1  continue 
return 
end 

subroutine  coord (pwr, nx, nsgn, mo, mf/X) 
implicit  real*8  (a-h,o-2) 
implicit  integer (i-n) 
dimension  x(l),si(100) 

dsi  -  1.0/nx 
si(l)  -  Q.O 
si(nx+l)  -  1.0 
do  1  i  -  2,nx 

8l(i)  -  si<i-l)  +  dsi 

1  continue 

do  2  i  •  l,nx 

if  (nsgn  .ge.  0)  then 
si(i+l)  -  si(i+l)**pwr 
else 

si(l+l)  -  1.0  -  (1.0  -  si(i+l))**pwr 
endif 

2  continue 
xo  ■■  x(mo) 
xf  x(m£) 
nxl  nx  +  1 
do  3  i  l,nxl 

ix  mo+i-1 

x(ix)  “  (xf  -  xo)*si(i)  +  xo 

3  continue 
return 
end 

subroutine  wallstress  (e,cappa,cd25,amu,  rho,dlst,the,tauovel,)cl,lc2) 
inpllcit  real*8  (a-h,o-2> 
implicit  integer (i-n) 
dimension  tke (1) ,tauovel (1) 


computes  wall  stress  divided  by  the  velocity 


do  1  i  -  Xl,Jc2 

tk  -  rho*aqrt (tke(i) ) 
yplus  -  rk*cd25*dlst/ainu 
if  (yplus  .gt.  11.5)  then 

tauovel(i)  -  cappa*rX*cd25/dlog(e*yplus) 
else 

tauovel(i)  -  amu/dist 


endif 
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NSTEADY 

1 

DT 

O.lOOOE+31 

LAST,  (NTIMES(NEQ),  NEQ-1,NFP3) 

1000  1  1  1  1  1  1  0 

MODE,  IPREF,  JPREF 
2  120  2 

RHOCON, AMU, Cl , C2 , CD, CAPPA, ECON, PRTKE,  PRTED 
0.1062E-06  0.2750E-08  0.1430E+01  0.1920E+01  0.9000E-01  0.4000E+00  0,9000E+01 

O.lOOOE+01  0.1300E+01 
ALP , BET , ARAT , D I A , EP  S , FABTHK 

0.8610E+01  0.4200E+00  0.1490E+03  0.2770E-02  0.4300E+00  0.2680E-01 
UINLET,  UINJECT 
0.5000E+02  0.2000E+02 

COMPUTATION  FOR  AXISYMMETRIC  SITUATION 

A*************************************** 


AA,  BB,  SCFAC 

0.9235E+05  0.7780E-05  0.8933E-01 
RMAX,  DISTN,  DISTS,  DISTE,  DISTW 
0.4000E+01  0.3207E-01  0.3207E-01  0.1206E+00  0.1206E+00 
DISTNI,  DISTEI,  DISTWI 
0.4069E-01  0.7500E-01  0.7500B-01 
FCTRN,  FCTRS,  FCTRE,  FCTRW 
0.1281E+32  0.1281E+32  0.3406E+31  0.3406E+31 
FCTRNI,  FCTREI,  FCTRWI 
0,1010E+32  0.5477E+31  0.5477E+31 


IBOXl 

,  IBOX2, 

JBOX 

51 

70 

10 

LBl, 

LB2, 

MBl, 

MB2 

52 

71 

1 

11 

LNWl, 

LNW2 

,  MNW,  LSWl,  LSW2,  MSW 

1 

122 

31 

52  71  12 

LEW, 

MEWl, 

MEW2,  LWW,  MWWl,  MWW2 

51 

1 

11 

72  1  11 

LEWI, 

LWWI 

,  MNWI 

70 

54 

10 

LFl, 

LF2, 

MFl, 

MF2 

52 

53 

1 

10 

WFl, 

WF2 

0.1500E+00  0.1500E+00 
LVl,  LV2 
56  68 

WROTE  F(I,J,K)  TO  RESTART  LI,  Ml,  NFD 
122  32  7 

WROTE  AMUT(I,J)  TO  RESTART  LI,  Ml 
122  32 


S3IN/QOUT  -  0.99 


EAST  WALL  -  U 


0.188E-»-02  0.188E+02 
0.194E+02  0.230E+02 
0.573E+02  0.589E+02 
0.605E+02  0.597E+02 
0.429E+02  0.366E+02 


0.152E+02 

0.283E+02 

0.599E+02 

0.585E+02 

0.259E+02 


0.144E+02 

0.361E+02 

0.605E+02 

0.563E+02 

O.OOOE+OO 


0.146E+02 

0.447E-»-02 

0.607E+02 

0.536E+02 


0.154E+02  0.170E+02 
0.507E+02  0.546E+02 
0.608E+02  0.609E+02 
0.505E+02  0.471E+02 


WEST  WALL  -  U 


-.876E+01 

0.168E+01 

0.548E+02 


-.876E+01 

0,361E+01 

0.586E-<-02 


-,629E+01 

0.644E-«-01 

0.617E+02 


-.469E+01  -.323E+01 
0.142E+02  0.329E+02 
0.640E+02  0.655E+02 
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-.172E+01  -.920E-01 
0.447E+02  0.503E+02 
0.660E+02  0.657E+02 


0.652E-<-02  0.641E-f02  0.627E+02  0.60SE-I-02  0.580E-»-02  0.550E+02  0.513E-»-02 
0.461E+02  0.379E+02  0.254E+02  O.OOOE+00 


OUTLET  -  O 


0.444E-»-02  0.444E-«-02 
0.509E+02  0.518E+02 
0.563E+02  0.571E+02 
0.571E+02  0.514E+02 
0.339E+02  0.285E+02 


0.460E+02  0.470E+02  0.481E+02  0.491E+02  0.500E-t-02 
0.526E+02  0.534E-f02  0.542E-)-02  0.548E-I-02  0.556E-*-02 
0.579E+02  0.588E+02  0.596E-)-02  0.603E-«-02  0.605E-«-02 
0.484E+02  0.458E+02  0.432E+02  0.405E+02  0.376E+02 
0.208E+02  O.OOOE+00 


U  AT  I  -  LB2 


O.00OE-<-00  O.OOOE+OO 
O.OOOE+00  O.OOOE+00 
0.537E+02  0.580E+02 
0.652E+02  0,642E+02 
0.468E+02  0.388E+02 


O.OOOE+00  O.OOOE+00  O.OOOE+00  O.OOOE+00  O.OOOE+00 
O.OOOE+00  O.OOOE+00  0.302E+02  0.429E+02  0.487E+02 
0.614E+02  0.639E+02  0.654E+02  0,660E+02  0.657E+02 
0.628E+02  0.607E+02  0.582E+02  0.553E+02  0.518E+02 
0.262E+02  O.OOOE+00 


U  FOR  I-LEW, LWW+1  J-1,5,10 

0.188E+02  0.162E+02  0.162E+02  0.162E+02  0.423E+02  0.836E+02  0.710E+02 
0.583E+02  0.457E+02  0.330E+02  0.204E+02  0.774E+01  -.491E+01  -,176E+02 
-.302E+02  -.429E+02  -.555E+02  -.682E+02  -.808E+02  -.358E+02  0,000E+00 
O.OOOE+00  -.876E+01 

0.146E+02  0.762E+00  0.763E+00  0.764E+00  0.140E+01  0.257E+00  0,514E+00 
0.176E+01  0.757E+01  0.811E+01  0.651E+01  0.303E+01  -.200E+01  -,568E+01 
-.741E+01  -.704E+01  0.436E+00  0.144E+01  0.150E+01  0.587E+00  O.OOOE+00 
O.OOOE+00  -.323E+01 

0.283E+02  -,971E+01  -.971E+01  -.971E+01  -.184E+02  -.257E+02  -.312E+02 
-.346E+02  -.350E+02  -.315E+02  -.238E+02  -.119E+02  0.893E+01  0.209E+02 
0.289E+02  0.322E+02  0.312E+02  0.271E+02  0.205E+02  0.117E+02  0,000E+00 
O.OOOE+00  0.644E+01 


V  FOR  I-LEW, LWW  J-3,5,10 

0.263E+01  O.OOOE+00  O.OOOE+00  -.414E+02  -.653E+02  0.200E+02  0.200E+02 
0.200E+02  0.200E+02  0.200E+02  0.200E+02  0.200E+02  0.200E+02  0.200E+02 
0.200E+02  0.200E+02  0.200E+02  0.200E+02  -.711E+02  -.566E+02  O.OOOE+00 
0.862E+01 

0.143E+02  O.OOOE+00  O.OOOE+00  -.268E-t-02  -.242E-I-02  -.168E+02  -.846E-)-01 
0.703E-I-01  0.173E-t-02  0.242E-I-02  0.290E+02  0.325E-«-02  0.296E+02  0.246E-»^02 
0.175E+02  0.692E+01  -.106E+02  -.200E+02  -,278E+02  -.328E+02  O.OOOE+00 
0.112E+02 

0.447E+02  O.OOOE+00  O.OOOE+00  -,486E+01  -.408E+01  -.311E+01  -.188E+01 
-.246E+00  0.196E+01  0.434E+01  0.660E+01  0.117E+02  0.671E+01  0.442E+01 
0.185E+01  -.518E+00  -.230E+01  -.369E+01  -.496E+01  -.654E+01  O.OOOE+00 
0.678E+01 

AXIAL  PRESSURE 

0.706E-04  0.687E-04  0.660E-04  0.635E-04  0.615E-04  0.596E-04  0.581E-04 
0.568E-04  0.557E-04  0.547E-04  0.538E-04  0.530E-04  0.523E-04  0.516E-04 
0.510E-04  0.504E-04  0.499E-04  0.493E-04  0.489E-04  0.484E-04  0.480E-04 
0.476E-04  0.472E-04  0.468E-04  0.465E-04  0.462E-04  0.459E-04  0.457E-04 
0.4S5E-04  0.455E-04  0.45SE-04  0.456E-04  0.458E-04  0.462E-04  0.468E-04 
0.477E-04  0.489E-04  0.505E-04  0.527E-04  0.556E-04  0.594E-04  0.644E-04 
0.707E-04  0.788E-04  0.891E-04  0.102E-03  0.117E-03  0.134E-03  0.153E-03 
0.171E-03  0.184E-03  0.129E-03  0.366E-04  -.254E-04  -.236E-03  -.649E-03 
-.545E-03  -.458E-03  -.388E-03  -.335E-03  -.299E-03  -.280E-03  -.294E-03 
-.326E-03  -.375E-03  -.441E-03  -.524E-03  -.624E-03  -.185E-03  0.363E-04 
0.159E-04  -.322E-04  -.394E-04  -,425E-04  -.439E-04  -.430E-04  -.396E-04 
-.340E-04  -.268E-04  -.188E-04  -.107E-04  -.336E-05  0.286E-05  0.775E-05 
0.113E-04  0.137E-04  0.150E-04  0.155E-04  0.155E-04  0.151E-04  0.144E-04 
0.136E-04  0.128E-04  0.119E-04  O.lllE-04  0.104E-04  0.971E-05  0.909E-05 
0.853E-05  0.803E-05  0,758E-05  0.718E-05  0.681E-05  0.647E-05  0.615E-05 
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0.585E-05 

0.555E-05 

0.525E-05 

0.496E-05 

0.466E-05 

0.434E-05 

0.402E-05 

0.367E-05 

0.330E-05 

0.290E-05 

0.247E-05 

0.200E-05 

0.148E-05 

0.870E-06 

O.OOOE+00 

0.821E-06 

0.140E-05 

PRESSURE  AT  J  - 

5 

0.706E-04 

0.687E-04 

0.661E-04 

0.637E-04 

0,616E-04 

0.598E-04 

0.582E-04 

0.569E-04 

0.558E-04 

0.548E-04 

0.539E-04 

0.531E-04 

0.524E-04 

0.517E-04 

0. 511E-04 

0.505E-04 

0.499E-04 

0.494E-04 

0.489E-04 

0.485E-04 

0.480E-04 

0.476E-04 

0.472E-04 

0.468E-04 

0,465E-04 

0.462E-04 

0.459E-04 

0.457E-04 

0.455E-04 

0.454E-04 

0.453E-04 

0,453E-04 

0.455E-04 

0.458E-04 

0.462E-04 

0.469E-04 

0.479E-04 

0.492E-04 

0.510E-04 

0.533E-04 

0.563E-04 

0.602E-04 

0.651E-04 

0.715E-04 

0.795E-04 

0.896E-04 

0.102E-03 

0.118E-03 

0.137E-03 

0 .159E-03 

0.183E-03 

0.194E-03 

0.189E-03 

0.185E-03 

0.174E-03 

0.163E-03 

0.154E-03 

0.150E-03 

0.164E-03 

0.188E-03 

0.210E-03 

0.222E-03 

0.215E-03 

0.195E-03 

0.173E-03 

0.161E-03 

0.165E-03 

0.172E-03 

0.180E-03 

0.186E-03 

0.861E-04 

-.430E-04 

-.460E-04 

-.478E-04 

-.486E-04 

-.474E-04 

-.439E-04 

-.379E-04 

-.301E-04 

-.216E-04 

-.131E-04 

-.554E-05 

0.739E-06 

0,559E-05 

0.909E-05 

0.114E-04 

0.127E-04 

0.134E-04 

0.135E-04 

0.132E-04 

0,127E-04 

0.121E-04 

0.114E-04 

0.108E-04 

O.lOlE-04 

0.950E-05 

0.894E-05 

0.842E-05 

0.796E-05 

0.753E-05 

0.715E-05 

0.680E-05 

0.648E-05 

0.618E-05 

0,589E-05 

0.562E-05 

0.534E-05 

0.507E-05 

0.479E-05 

0.450E-05 

0.420E-05 

0.389E-05 

0.355E-05 

0,319E-05 

0.280E-05 

0,238E-05 

0.191E-05 

0,140E-05 

0,831E-06 

0. 124E-06 

0.516E-06 

0.793E-06 

X  NODE  LOCATIONS 


0.00000 

9.28999 

13.36090 

16.45264 

19.04881 

21.33124 

23.39198 

24.82500 

26.02500 

27.36306 

29.40041 

31.65115 

34,20087 

37.21463 

41.10883 

49.30294 


1.69706 

9.89117 

13.78537 

16.79913 

19.34885 

21.59959 

23.63694 

24.97500 

26.17500 

27.60802 

29.66876 

31.95119 

34.54736 

37.63910 

41.71001 

51,00000 


4.09706 

10.45773 

14.19714 

17.13860 

19.64430 

21.86464 

23.87939 

25.12500 

26.32500 

27.85557 

29.94053 

32.25603 

34.90130 

38.07753 

42.35309 


5.33939 

10.99506 

14.59730 

17.47149 

19.93537 

22.12652 

24.07500 

25.27500 

26.47500 

28.10580 

30.21585 

32.56591 

35.26321 

38.53137 

43.04834 


6.33350 

11.50727 

14.98676 

17.79814 

20.22226 

22.38534 

24.22500 

25.42500 

26.62500 

28.35880 

30.49487 

32.88109 

35.63364 

39.00240 

43,81115 


7.18885 

11.99760 

15.36636 

18.11891 

20.50513 

22.64120 

24.37500 

25.57500 

26.77500 

28.61466 

30.77774 

33.20186 

36.01324 

39.49273 

44.66650 


7.95166 

12.46863 

15.73679 

18.43409 

20.78415 

22.89419 

24.52500 

25.72500 

26.92500 

28.87348 

31.06463 

33.52851 

36.40270 

40.00494 

45.66061 


8.64691 

12,92247 

16.09870 

18,74397 

21.05947 

23.14443 

24.67500 

25.87500 

27.12061 

29.13536 

31.35570 

33.86140 

36.80286 

40.54227 

46.90294 


Y  NODE  LOCATIONS 


0.00000 

1.29832 

1.91277 

3.48761 


0.23717 

1,38233 

2.01239 

3.58723 


0.57258 

1,46151 

2.12816 

3.67606 


0.74620 

1.53207 

2.27285 

3.75704 


0.88513 

1.59806 

2.55236 

3,83193 


1.00467 

1.66807 

2.94764 

3.90194 


1.11128 

1.74296 

3.22715 

3.96793 


1.20844 

1.82394 

3.37184 

4.00000 


XU  LOCATIONS 


0.00000 

8,97998 

13,14534 

16.27759 

18.89762 

21.19623 

23.26886 

24.75000 

25.95000 

27.24121 

29.26708 

31.50231 

34.02944 


0.00000 

9.60000 

13,57645 

16,62769 

19.20000 

21.46625 

23.51510 

24.90000 

26.10000 

27.48490 

29.53375 

31.80000 

34.37231 


3.39411 

10.18234 

13.99428 

16.97056 

19.49769 

21.73292 

23.75879 

25.05000 

26.25000 

27.73114 

29.80377 

32.10238 

34.72241 


4.80000 

10.73313 

14.40000 
17,30665 
19,79091 
21.99636 
24.00000 
25.20000 

26.40000 
27,98001 
30.07728 
32.40968 
35.08020 


5.87878 

11.25700 

14.79459 

17.63633 

20.07984 

22.25668 

24.15000 

25.35000 

26.55000 

28.23160 

30.35442 

32.72214 

35.44622 
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6.78823 

11.75755 

15.17893 

17.95996 

20.36468 

22.51400 

24.30000 

25.50000 

26.70000 

28.48600 

30.63532 

33.04004 

35.82107 


7.58947 

12.23765 

15.55378 

18.27786 

20.64558 

22.76840 

24.45000 

25.65000 

26.85000 

28.74332 

30.92016 

33.36367 

36.20541 


8.31384 

12.69961 

15.91980 

18.59032 

20.92271 

23.01999 

24.60000 
25.80000 
27.00000 
29.00364 
31.20909 
33.69335 

36.60000 


37.00572  37,42355  37.85466  38.30039  38.76235  39.24245  39.74300  40.26687 
40.81766  41.40000  42.02002  42.68616  43.41053  44.21177  45.12122  46.20000 
47.60589  51.00000 


YV  LOCATIONS 

0.00000  0.00000  0 
1.25499  1.34164  1 

1.86612  1.95943  2 

3.43465  3.54057  3 


EAST  WALL  -  TKE 

0.203E+02  0.203E+02 
0.506E+02  0.606E+02 
0.169E+03  0.129E+03 
0.605E+01  0.635E+01 
0.354E+02  0.410E+02 


EAST  WALL  -  TED 

0.312E+03  0.312E+03 
0.122E+04  0.161E+04 
0.391E*04  0.258E+04 
0.979E+01  0.152E+02 
0.769E+03  0.174E+04 


WEST  WALL  -  TKE 

0.323E+02  0.323E+02 
0,124E+02  0.992E+01 
0.897E+02  0.795E+02 
0.667E+01  0.754E+01 
0.368E+02  0.450E+02 


WEST  WALL  -  TED 

0.624E+03  0,624E+03 
0.149E+03  0.106E+03 
0.183E+04  0,136E+04 
0.150E-»-02  0.215E+02 
O.lOOE+04  0.218E+04 


OUTLET  -  TKE 

0.304E+02  0.304E+02 
0.317E+02  0.308E+02 
0.222E+02  0.200E-»-02 
0.172E+02  0,288E+02 
0.362E+02  0.342E+02 


OUTLET  -  TED 

0.795E+02  0.795E+02 
0,105E+03  0.103E+03 
0.717E+02  0.629E+02 
0.672E+02  0,156E+03 
0.693E-f03  0.128E-^04 


.47434 

.42302 

.06535 

.63388 


0.67082 

1.50000 

2.19098 

3.71825 


0.82158 

1,56415 

2,35472 

3.79583 


0.94868 

1,63197 

2.75000 

3.86803 


1.06066 

1.70417 

3.14528 

3.93585 


1.16190 

1.78175 

3.30902 

4.00000 


0.251E+02  0.287E+02  0.328E+02  0.376E+02  0.432E+02 
0.748E+02  0.971E+02  0.168E+03  0.194E+03  0.194E+03 
0.858E-I-02  0.502E-t-02  0.268E+02  0.144E+02  0.795E-t-01 
0.886E-»-01  0.141E-I-02  0.204E-I-02  0.260E-t-02  0.309E-I-02 
0,671E+02  O.OOOE+00 


0.429E403  0.524E-«-03  0.640E+03  0.785E-»-03  0.968E-«-03 
0,220E+04  0.326E+04  0.555E+04  0.571E+04  0.508E+04 
0.146E+04  0.686E+03  0.265E+03  0.819E+02  0.180E+02 
0.375E+02  0.913E+02  0.175E+03  0.283E-t-03  0.444E+03 
0.705E+04  O.OOOE+00 


0.285E-«-02  0.253E-t-02  0.220E-t-02  0.187E-i-02  0.154E-t-02 
0.809E+01  0.181E+02  0.819E+02  0.106E+03  0.976E+02 
0,673E+02  0.541E+02  0.400E+02  0.247E+02  O.lOlE+02 
0.107E+02  0.157E+02  0.208E+02  0.255E+02  0.305E+02 
0.665E+02  O.OOOE+00 


0.519E+03 
0,784E+02 
0.989E-t-03 
0.497E+02 
0. 695E-t-04 


0.433E-f03 

0.262E-)-03 

0.686E-)-03 

0.105E-I-03 

O.OOOE+00 


0.350E+03 

0.634E-«-04 

0.433E-I-03 

0.185E+03 


0.275E+03 

0.394E+04 

0.216E+03 

0.305E+03 


0.206E-«-03 

0.251E-t-04 

0.494E-t-02 

0.526E+03 


0.320E+02  0.326E-i-02  0.329E+02  0.328E-I-02  0.324E-F02 
0.297E+02  0.285E+02  0.271E+02  0.257E+02  0.241E+02 
0.175E+02  0.146E+02  0.115E+02  0.864E+01  0.699E+01 
0.325E-t-02  0.348E-«-02  0.362E-t-02  0.368E-)-02  0.368E-t-02 
0.531E+02  O.OOOE+00 


0.912E+02  0.976E+02  0.102E+03  0.104E+03  0.105E+03 
0.996E+02  0.955E+02  0.908E+02  0.856E+02  0.793E+02 
0.528E+02  0.417E+02  0.301E+02  0.200E+02  0.167E+02 
0.200E+03  0.245E+03  0.297E+03  0.36eE+03  0.479E+03 
0.496E-«-04  0.000E-»-00 


TKE  FOR  I-LEW, LWW, 2  J-1,5,10 
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0.203E+02 

0.266E-68 

0.912-138 

0.272-206 

0.363-275 

O.OOOE+OO 

0.865-314 

0.325-244 

0.273-175 

0.988-107 

O.OOOE+OO 

0.328E+02 

0.104E-70 

0.563-143 

0.512-216 

0.342-287 

O.OOOE+OO 

O.OOOE+OO 

0.420-265 

0.296-192 

0.392-110 

O.OOOE+OO 

0.748E+02 

0.245E-70 

0.156E-70 

0.122E-70 

0.112E-70 

0.113E-70 

0.117E-70 

0.122E-70 

0.127E-70 

0.133E-70 

O.OOOE+OO 

TED  FOR  I-LEW,LWW, 2  J-l,f 

>,10 

0.312E+03 

0.357E-32 

0.409E-67 

0.468-102 

0.140-136 

0.830-171 

0.417-205 

0.172-239 

0.557-274 

0.130-308 

O.OOOE+OO 

O.OOOE+OO 

0.160-312 

0.129-277 

0.601-243 

0.198-208 

0.504-174 

0.104-139 

0.183-105 

0.720E-71 

O.OOOE+OO 

0.624E+03 

0.640E+03 

0.368E-33 

0.201E-69 

0.110-105 

0.109-141 

0.258-178 

0.991-215 

0.124-250 

0.662-286 

0.375-321 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

0.335-299 

0.638-264 

0.350E+03 

0.128-228 

0.450-191 

0.292-150 

0.595-109 

0.389E-71 

O.OOOE+OO 

0.220E+04 

0.533E-68 

0.358E-68 

0.248E-68 

0.185E-68 

0.149E-68 

0.129E-68 

0.118E-68 

0.114E-68 

0.113E-68 

0.114E-68 

0.117E-68 

0.121E-68 

0.124E-68 

0.129E-68 

0.133E-68 

0.137E-68 

0.142E-68 

0.146E-68 

0.151E-68 

O.OOOE+OO 

0.784E+02 


AMUT  FOR  I-LEW,LWW,2  J-1,5,10 


0.127E-07 

O.OOOE+00 

O.OOOE+00 

0.159E-07 

0.161E-07 

O.OOOE+00 

O.OOOE+00 

0.131E-07 

0.243E-07 

O.OOOE+00 

O.OOOE+00 

0.798E-08 

TAUN 

0.372E-05 

0.170E-05 

0.160E-05 

0.157E-05 

0.155E-05 

0.159E-05 

0.180E-05 

0.225E-05 

0.243E-05 

0,238E-05 

0.220E-05 

0.181E-05 

0.152E-05 

0.146E-05 

0.149E-05 

0.152E-C^ 

0.152E-05 

0.178E-05 

TAUS 

0.581E-05 

0.199E-05 

0.230E-05 

"AUE 

O.OOOE+00 

0.108E-05 

TAUW 

O.OOOE+00 

0.211E-06 


O.OOOE+00 

0,000E+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+OC 

O.OQOE+00 

O.OOOE+00 


0.284E-05 
0. 167E-05 
0.159E-05 
0.156E-05 
0.155E-05 
0.161E-05 
0.185E-05 
0.230E-05 
0.243E-05 
0.236E-05 
0.215E-05 
0.176E-05 
0.149E-05 
0.146E-05 
0.150E-05 
0.152E-05 
0.152E-05 


0.403E-05 

0.199E-05 

0.236E-05 

0.298E-07 

0.142E-05 

0.117E-06 

0.175E-06 


O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE-t-00 

O.OOOE+00 

O.OCOE+00 

O.OOOE+00 

O.OOOE+OC 

O.OOOE+00 


0.236E-05 

0.165E-05 

0.159E-05 

0.156E-05 

0.156E-05 

0.162E-05 

0.191E-05 

0.234E-05 

0.243E-05 

0.234E-05 

0.210E-05 

0.171E-05 

0.148E-05 

0.147E-05 

0.150E-05 

0.152E-05 

0.152E-05 


0.319E-05 

0.201E-05 

0.243E-05 

0.145E-06 

0.189E-05 

0.246E-06 

0.126E-06 


O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.COOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 
O.OOOE  00 
O.OOOE+OO 


0.208E-05 

0,163E-05 

0.158E-05 

0.156E-05 

0.156E-05 

0.165E-05 

0.198E-05 

0.236E-05 

0.243E-05 

0.231E-05 

0.204E-05 

0.166E-05 

0.147E-05 

0.147E-05 

0.151E-05 

0.152E-05 

0.152E-05 


0.269E-05 

0.206E-05 

0.249E-05 

0.304E-06 

0.249E-05 

0.267E-06 

0.449E-07 
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O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 


0.191E-05 

0.162E-05 

0.158E-05 

0.156E-05 

0.156E-05 

0.168E-05 

0.204E-05 

0.239E-05 

0.242E-05 

0.229E-05 

0.199E-05 

0.161E-05 

0.146E-05 

0.148E-05 

0.151E-05 

0.152E-05 

0.152E-05 


0.236E-05 

0.211E-05 

0.256E-05 

0.458E-06 


0.262E-06 


O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 


0.181E-05 

0.161E-05 

0.157E-05 

0.156E-05 

0.157E-05 

0.171E-05 

0.212E-05 

0.240E-0D 

0.241E-05 

0.226E-05 

O.193E-05 

0.158E-05 

0.146E-05 

0.148E-05 

0.151E-05 

0.152E-05 

0.153E-05 


0.216E-05 

0.217E-05 

0.262E-05 

0.627E-06 


0.253E-06 


O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 


0.174E-05 
0.160E-05 
0.157E-05 
0.155E-05 
0.158E-05 
0.175E-05 
0.219E-05 
0.242E-05 
0.239E-05 
0.224E-05 
0.187E-05 
0.154E-05 
0.146E-05 
0.149E-05 
O.’’  S2E-05 
0.152E-05 
0.166E-05 


0.205E-05 

0.223E-05 


0.826E-06 


0.237E-06 


YPLOSN 

0.579E+01 

YPLUSS 

0.563E+01 

YPLUSW 

0.120E-»-02 

yPLUSE 

0.146E-t-02 

NO.  ITERATIONS  -  1000  LI, Ml  -  122  32 


EQN  SWEEPS 

21  31  41  51 
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APPENDIX  E 

User  Rontiiie  for  Output  Coutrol 


The  routine  used  to  control  printed  output,  generation  of  a  file  for  restart 
information  used  to  initiate  the  model  for  a^ent  transport,  and  generation  of  a  file  for 
plotting  data  used  by  the  plotting  routines  is  given  here. 
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SUBROUTINE  PUTOUT 
IMPLICIT  REAL*8(A-H,0-Z) 

IMPLICIT  INTEGER (I-N) 

PARAMETER  (ID-151, JD-151,NFD-7,NFP3-7,MIJ-151) 

C 

LOGICAL  LSTOP 
C 

COMMON/BLOCK/F(ID, JD,NFD) ,GAM(ID, JD)  ,CON(ID,  JD)  , 

:  AIPdD,  JD)  ,AIM(ID,  JD),AJP(ID,  JD) ,  AJM(ID,  JD) ,  AP  (ID,  JD)  , 

;  X(ID),XU(ID),XDIF(ID),XCV(ID),XCVS(ID), 

:  Y(JD) , YV(JD) ,YDIF(JD),YCV(JD),YCVS(JD) , 

:  YCVR(JD) ,YCVRS(JD) ,ARX(JD) ,ARXJ(JD) ,ARXJP(JD) , 

:  R(JD)  ,RMN(JD)  ,SX(JD)  ,SXMN(JD),XCVI(ID)  ,XCVIP(lf>) 

C 

COMMON  DU(ID, JD) ,DV(ID, JD) ,  FV(JD) ,FVP (JD) , 

:  FX  (ID)  , FXM  (ID) , FY  ( JD)  , FYM(  JD) , PT  (MU) , QT  (MU) 

C 

COMMON/ INDX/NF, NFMIN, NFMAX, NP, NRHO, NGAM,  LI ,  L2 ,  L3,  Ml ,  M2 ,  M3 , 

:  1ST,  JST, ITER, LAST, IPREF, JPREF, MODE, NTIMES (NFP3) 

C 

COMMON/VARI/TIME,DT, RELAX (NFP3) ,RHOCON 
C 

COMMON/ CNTL / LSTOP 
C 

COMMON/COEF/FLOW, DIFF, ACOF 
C 

COMMON/ INOUT/ IN, 10 
C 

COMMON/STRESS/TOUN(ID) ,TOUS(ID) ,TOVE(ID)  ,TOVW(ID)  , 

:  TAON(ID),TADS(ID) ,TAUE(ID) ,TAOW(ID) , 

;  TOUNI(ID),TOVEI(ID),TOVWI(ID), 

;  TADNI (ID) ,TAUEI (ID) ,TAOWI (ID) ,AMDT(ID, JD) 

C 

COMMON/PROP/  AMU, Cl, C2, CD, CAPPA, ECON, PRTKE, PRTED, 

ALP,BET,ARAT,DIA,EPS,FABTHK,UINLET,  UINJECT, 

:  CD5,CD25,CD75,C2M,TC2M,CDR2 

C 

COMMON/BOX/  WF1,NF2,SCFAC,AA,BB,DISTN,DISTS,DISTE,DISTH, 

:  DISTNI,D1STEI,DISTWI 

C 

COMMON/ IBOX/  LBl , LB2 , MB2 , LNWl , LNW2 , LSNl , LSN2 ,  MNW,  MSN, 

MEWl , MEW2 , MNHl, MWH2 , LEW, LNW, LFl , LF2 , MFl , MF2 , 
MNWI,LNWI,LEWI 
C 

DIMENSION  U(ID, JD) ,V(ID, JD) ,PC(ID, JD) ,P (ID, JD) , TKE (ID, JD)  , 
TED(ID, JD) ,GK(ID, JD) 

C 

EQUIVALENCE  (F (1, 1, 1) ,U (1, 1) ) , (F (1, 1, 2) , V (1, 1 ) ) , 

(F (1,1, 3), PC (1,1)), (F(1,1,4),P(1,1) ), 
(F(1,1,5),TKE(1,1)), (F(1,1,6),TED(1,1)) 

F(I,J,1)  -  U 
F{I,J,2)  -  V 
F(I,J,3)  -  PC 
F(I,J,4)  -  P 
F(I,J,5)  -  TKE 
F(I,J,6)  -  TED 


DATA  TINY, BIG  /l.E-30,  l.E+30/ 

CREATE  RESTART  FILE 

REWIND  12 
WRITE (12)  ITER 

DO  10  K  -  1,NFD  118 


DO  10  J  -  1,M1 
DO  10  I  -  1,L1 

WRITE(12)  F(I,J,K) 

10  CONTINUE 

WRITE (10, *)  '  WROTE  F(I,J,K)  TO  RESTART  LI,  Ml,  NFD  ' 
WRITE (10, 6100)  LI, Ml, NFD 
DO  11  J  -  1,M1 
DO  11  I  -  1,L1 

WRITE(12)  AMOT(I,J) 

11  CONTINUE 

WRITE (10,*)  '  WROTE  AMUT(I,J)  TO  RESTART  LI,  Ml  ' 

WRITE (10, 6100)  LI, Ml 
6100  FORMAT (1015) 

C 

CLOSE (UNIT-12,  STATUS-' KEEP' ) 

C 

C  CONSTRUCT  BOUNDARY  PRESSURES  BY  EXTRAPOLATION 

C 

DO  21  J  -  2, M2 

P(1,J)  -  (P(2,J)*XCVS(3)  -  P(3,  J)*XDIF(2)  )/XDIF(3) 

P(L1,J)  -  (P(L2, J)*XCVS(L2)  -  P (L3, J) *XDIF (LI) ) /XDIF (L2) 

21  CONTINUE 
DO  22  I  -  2, L2 

P(I,1)  -  (P(I,2)*YCVS(3)  -  P(I,3)*YDIF(2) )/YDIF(3) 

P(I,M1)  -  (P(I,M2)*YCVS(M2)  -  P (I,M3) *YDIF (Ml) ) /YDIF (M2) 

22  CONTINUE 

P(l,l)  -  P(2,l)  +  P(l,2)  -  P(2,2) 

P(L1,1)  -  P(L2,1)  +  P(L1,2)  -  P(L2,2) 

P(1,M1)  -  P(2,M1)  +  P(1,M2)  -  P(2,M2) 

P(L1,M1)  -  P(L2,M1)  +  P(L1,M2)  -  P(L2,M2) 

C 

PREF  -  PdPREF,  JPREF) 

C 

DO  23  J  -  1,M1 
DO  23  I  -  1,L1 

P(1,J)  -  P(I,J)  -  PREF 

IF  (P(I,J)  .LT.  -l.E-1)  P(I,J)  -  0.0 

23  CONTINUE 
C 

C 

C  RATIO  OF  VOLUME  INFLOW  TO  VOLUME  OUTFLOW 

C 

QIN  -  0.0 
QOUT  -  0.0 
DO  25  J  -  2, Ml 

QIN  -  QIN  +  U(2, J)*ARX(J) 

QOUT  -  QOUT  +  U(L2, J)*ARX(J) 

25  CONTINUE 

C  DO  26  J  -  MU1,M02 
C  QIN  -  QIN  +  ONIJECT*ARX(J) 

C  26  CONTINUE 

QINOUT  -  QIN/ (QOUT  +  TINY) 

C 

606  FORMAT (7 (IX, e9. 3) ) 

WRITE (10, 612)  QINOUT 
612  FORMAT (/5X,'QIN/QOUT  -',F6.2) 

WRITE (10, 614) 

614  FORMAT (/5X, 'EAST  WALL  -  U  ',/) 

WRITE (10, 606)  (U(LEW, J),J-1,M1) 

WRITE (10, 616) 

616  FORMAT (/5X, 'WEST  WALL  -  U  ',/) 

WRITE(IO,606)  (0(LWW+1, J),J-1,M1) 

WRITE (10, 618) 

618  FORMAT (/5X, 'OUTLET  -  U  ',/) 

WRITE(IO,606)  (U(L1, J),J-1,M1) 

WRITE (10, 620) 


119 


620  FORMAT(/,5X, 'D  AT  I  -  132',/) 

WRITE (10, 606)  (U(LB2,J),  J-I,M1) 

WRITE (10, 622) 

622  FORMAT (/,5X,  'D  FOR  I-LEW,LWW-fl  J-l, 
LWP  -  LWW  +  1 

WRITE (10, 606)  (0(1,1),  I-LEW,LWP) 
WRITE (10, 606)  (0(1,5),  I-LEW,LWP) 
WRITE (10, 606)  (0(1,10),  1-LEW, LWP) 
WRITE (10, 624) 

624  F0RMAT(/,5X,  'V  FOR  I-LEW,LWW  J-3,5, 

WRITE(IO,606)  (V(l,3),  I-LEW,LWW) 
WR1TE(IO,606)  (V(l,5),  I-LEW,LWW) 
WRITE (10, 606)  (V(I,10),  I-LEW,LWW) 
WRITE (10, 625) 

625  FORMAT(/,5X,  'AXIAL  PRESSORE',/) 

WRITE(IO,606)  (P(I,2),  I-1,L1) 

WRITE (10, 626) 

626  FORMAT(/,5X,  'PRESSORE  AT  J  -  5',/) 

WRITE(IO,606)  (P(I,5),  I-1,L1) 

WRITE (10, 627) 

627  FORMAT (/5X, 'X  NODE  LOCATIONS',/) 

WRITE (10, 636)  (X(l) ,I-1,L1) 

WRITE (10, 628) 

628  FORMAT ( /5X, ' Y  NODE  LOCATIONS' , / ) 

WRITE (10, 636)  (Y(I) , I-1,M1) 

WRITE (10, 629) 

629  FORMAT (/5X, 'XO  LOCATIONS',/) 

WRITE (10, 636)  (XO (I) , I-1,L1) 

WRITE (10, 630) 

630  FORMAT (/5X, 'YV  LOCATIONS',/) 

WRITE (10, 636)  (YV(I) , I-1,M1) 

636  F0RMAT(8(1X,F8.5) ) 

WRITE (10, 644) 

WRITE (10, 606)  (TKE(LEW,J),  J-l, Ml) 

644  FORMAT (//,5X,* EAST  WALL  -  TKE  ',/) 
WRITE (10,  645) 

WRITE (10, 606)  (TED(LEW,J),  J-l, Ml) 

645  FORMAT(//,5X, 'EAST  WALL  -  TED',/) 

WRITE (10,  646) 

WRITE (10,606)  (TKE (LWW, J),  J-l, Ml) 

646  FORMAT (//,5X, 'WEST  WALL  -  TKE  ',/) 
WRITE (10,  647) 

WRITE (10, 606)  (TED (LWW, J),  J-l, Ml) 

647  FORMAT (//,5X, 'WEST  WALL  -  TED',/) 

WRITE (10, 648) 

WRITE (10, 606)  (TKE(L2,J),  J-l, Ml) 

648  FORMAT (//,5X, 'OUTLET  -  TKE  ',/) 

WRITE (10, 649) 

WRITE (10, 606)  (TED(L2,J),  J-l, Ml) 

649  FORMAT (//,5X, 'OUTLET  -  TED  ',/) 

C 

WRITE (10, 676) 

676  FORMAT(/,5X,'TKE  FOR  I-LEW,LWW,2  J-l,' 
WRITE(IO,606)  (TKE(1,1),  I-LEW,LWW,i 
WRITE (10, 606)  (TKE (I, 5),  1-LEW, LWW, i 
WRITE (10, 606)  (TKE (I, 10),  I-LEW,LNW, 
WRITE (10, 678) 

678  FORMAT (/, 5X, 'TED  FOR  I-LEW,LNN,2  J-1,S 
WRITE (10, 606)  (TED (1,1),  I-LEW,LWW) 
WRITE(IO,606)  (TED(I,5),  I-LEW,LNW) 
WRITE (10, 606)  (TED (I, 10),  I- LEW, LWW) 

0 

WRITE  (10,  680) 

680  F0RMAT(/,5X,'AMDT  FOR  1-LEW, LWW, 2  J-l, 
WRITE(IO,606)  (AMUT(I,1),  I-LEW,LNW) 
WRITE (10, 606)  (AMUT(I,5),  I-LEW,LWW) 
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5,10',/) 


10',/) 


,10',/) 

) 

) 

2) 

,10',/) 


5,10',/) 


non 


WRITE(IO,606)  (AMOT(I,10),  I-LEW,LWW) 

C 

WRITE (10,*)  'TAON' 

WRITE(IO,606)  (TAONd)  ,I-2,L2) 

C 

WRITE (10,*)  'TAOS' 

WRITE (10, 606)  (TAOS (I) , I-LSWl , LSW2 ) 

C 

WRITE (10,*)  'TAUE' 

WRITE (10, 606)  (TAUE(J) , J-MEW1,MEW2) 

C 

WRITE (10,*)  'TAUW' 

WRITE (10, 606)  (TAUW(J), J^4WW1,MWW2) 

C 

TURB  -  TKE(LSWl-«-10,MNW) 

CALL  YYPLOS(CD25,RHOCON, AMU, DISTN, TORE, YPLOS) 
WRITE (10,*)  'YPLOSN' 

WRITE (10, 606)  YPLOS 
TUBE  -  TKE(LSW1+10,MSW) 

CALL  YYPLUS (CD25, RHOCON, AMU, DISTS, TURB, YPLOS) 
WRITE (10,*)  'YPLOSS' 

WRITE(IO,606)  YPLOS 
C 

TORE  -  TKE(LWW, 5) 

CALL  YYPLUS (CD25, RHOCON, AMU, DISTW, TURB, YPLOS) 
WRITE (10,*)  'YPLOSW' 

WRITE (10, 606)  YPLOS 
TURB  -  TKE(LEW,5) 

CALL  YYPLUS (CD25, RHOCON, AMU, DISTE, TURB, YPLUS) 
WRITE (10,*)  'YPLOSE' 

WRITE (10, 606)  YPLUS 
C 

WRITE (10, 656) LAST, LI, Ml 

656  FORMAT (/5X, 'NO.  ITERATIONS  , 

+  I5,2X,'L1,M1  -  ',213,/) 

WRITE (10, 657) (I,NTIMES (1) , I-1,NFP3) 

657  FORMAT ( /2X, 'EQN  SWEEPS' , /, 6 (5X, 12 ,  IX,  12 ) ) 

IF  (ITER. EQ. LAST)  LSTOP-.TRUE. 

WRITE  DATA  TO  FILE  17  FOR  USE  BY  PLOT  PACKAGE 

WRITE (17, 6800)  LI, Ml 
WRITE (17, 6810)  (X (I) ,1-1, LI) 

WRITE (17, 6810)  (Y (I) , I-1,M1) 

WRITE (17, 6810)  (XU(I) , I-1,L1) 

WRITE (17, 6810)  (YV(I) , I-1,M1) 

RHO-RHOCON 
DO  4000  J  -  1,M1 
WRITE (17, 6820)  (RH0,I-1,L1) 

C  WRITE(IO,606)  (CON (I, J) , I-LFAB, L3) 

4000  CONTINUE 

DO  4010  J  -  1,M1 
WRITE(17,6820)  (U (I, J) , I-l, LI) 

4010  CONTINUE 

DO  4020  J  -  1,M1 

WRITE (17, 6820)  (V{I,  J) , I-l, LI) 

4020  CONTINUE 

DO  4030  J  -  1,M1 

WRITE (17, 6820)  (P (I, J) , I-l,  LI) 

4030  CONTINUE 
6800  FORMAT (IX, 215) 

6810  FORMAT(7(1X,E10.4)) 

6820  F0RMAT(6(1X,E12.6)) 

RETURN 

END 


C 
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SDBRODTIHE  YYPLOS (CD25 , RBO, AMD, DIST, TORB, YPLDS ) 
IMPLICIT  REAL*8  (A-H,0-Z) 

606  FORMAT(7(lX,e9.3) ) 

YPLDS  -  RHO*CD25*SQRT(TDRB) *DIST/AMD 

RETDRN 

END 
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APPENDIX  F 

lifer  Roatiae  fer  Agcat  Tmepert 


The  subroutine  USER  to  modd  the  transport  of  agent  is  given  here.  This  is  for  the 
case  of  radial  injection  as  is  the  routine  in  Appendix  D.  The  range  of  axial  nodes  for  the 
injector  are  defined  by  LVl  and  LV2  on  page  126.  The  boundary  condition  is  enforced 
following  ENTRY  BOUND  on  page  128  and  the  corresponding  coefficients  in  the  finite 
difference  equations  are  given  appropriate  values  following  ENTRY  GAMSOR  on  page  129. 
Note  that  the  inlet  condition  as  defined  on  pt^  128  has  an  exponential  variation  in  time. 
The  time  part  has  no  effect  in  the  steady  state  solution  because  the  exponential  term  is 
negligible.  It  comes  into  play  only  in  the  transient  case  and  is  used  to  mimic  the  inlet 
condition  observed  in  experiments.  In  this  case  output  is  controlled  directly  in  subroutine 
USER  and  not  in  a  separate  routine. 

Output  is  given  for  the  case  given  in  Appendix  D  for  the  steady  state  situation. 

A  transient  problem  is  not  given  here.  The  only  difference  is  that  NSTEADY 
would  be  set  equal  to  0,  and  for  this  case  DT  would  be  set  equal  to  1  (sec).  In  this  case, 
of  course,  the  exponential  variation  of  concentration  with  time  at  the  inlet,  as  defined  at 
ENTRY  BOUND,  would  come  into  play. 
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ooooooo  ooo  on  ooooooooo  oo  ooooooooo 


TEST  CHAMBER 
AGENT 


SUBROUTINE  USER 
IMPLICIT  REAL*8 (A-H,0-Z) 

IMPLICIT  INTEGER (I-N) 

PARAMETER  (ID-151, JD-151,NrD-7,NFP3-7,MIJ-151,NREG-10) 
LOGICAL  LSOLVE , LBLK, LSTOP 

COMMON/BLOCK/F(ID, JD,NFD) ,GAM(ID, JD) , CON (ID, JD) , 

:  AIP(ID, JD) ,AIM(ID, JD),AJP(ID, JD) ,AJM(ID, JD)  ,AP(ID,  JD) , 

:  X(ID) ,XU(ID) ,XDIF(ID),XCV(ID),XCVS(ID) , 

:  Y(JD) ,YV(JD) ,YDIF(JD),YCV(JD),YCVS(JD) , 

:  YCVR(JD) ,YCVRS(JD),ARX(JD),ARXJ(JD),ARXJP(JD), 

:  R(JD) ,RMN(JD) ,SX(JD) ,SXMN(JD) ,XCVI(ID) ,XCVIP(ID) 

COMMON  DU(ID, JD) ,DV(ID, JD) ,  FV(JD) ,FVP (JD) , 

:  FX(ID)  ,FXM(ID)  ,FY  ( JD)  ,FYM(  JD)  ,PT  (MU)  ,QT  (MU) 

COMMON/ INDX/NF, NFMIN, NFMAX, NP, NRHO, NGAM, LI,  L2 ,  L3,  Ml ,  M2 ,  M3 , 
:  1ST, JST, ITER, LAST, IPREF, JPREF,MODE,NTIMES (NFP3) 

COMMON/LOGI/LSOLVE (NFP3) , LBLK (NFP3) 

COMMON/ VARI /TIME, DT^  RELAX (NFP3) , RHOCON 

CC»®40N/ CNTL/ LSTOP 

COMMON/SORC/SMAX, SSUM 

COMMON/COEF/FLOW, DIFF , ACOF 

COMMON/ INOUT/ IN, 10 

COMMON/PROP/  AMD, Cl , C2 , CD, CAPPA, ECON, PRTKE, PRTED, 

ALP,BET,ARAT,DIA,EPS,FABTHK,UINLET,  DINJECT, 

:  CD5,CD25,CD7S,C2M,TC2M,Cn}R2 

COHMON/BOX/  NFl , NF2 , SCFAC, AA, BB, DISTN, DISTS, DISTE, DISTH, 
DISTNI , DISTEI , DISTWI 

COMMON/ IBOX/  LBl , LB2 , MB2 , LNWl , LNW2 , LSNl , LSN2 , MNN, MSN, 

MEWl , MEW2 ,MHW1, MNW2 , LEW, LNN, LFl , LF2 , MFl , MF2 , 
MNWI,LNWI,LEWI 

DIMENSION  U(ID, JD) ,V(ID, JD) ,AGNT(ID, JD) ,AMDT(ID, JD) 

DIMENSION  ICELL (NREG) , IDCRS (NREG) , JCELL (NREG) , JDCRS  (NREG) , 
XL (NREG) , YL (NREG) , ENX (NREG) , ENY (NREG) 

EQUIVALENCE  (F (1, 1, 1) ,D (1, 1) ) , (F (1, 1, 2) , V (1, 1) ) , 
(F(1,1,7),AGNT(1,1) ) 

F(I,J,1)  -  D 
F(I,J,2)  -  V 
F(I,J,7)  -  C 

.  . .PROBLEM  DATA 
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DATA  IN, 10  /15,16/ 

DATA  NFMIN,NFMAX  /5,7/ 

DATA  NU,NV,NPC,NP,NTKE,NTED,NC  71,2,3,4,5,6,7/ 

C 

DATA  LSOLVE  76*. false.,  .true./ 

C 

DATA  LBLK  / 7*. false./ 

C 

DATA  NTIMES  /7*1/ 

DATA  RELAX  /7*1.0/ 

DATA  LSTOP  /.FALSE./ 

DATA  TINY, BIG, SMALLEST, BIGGEST  /l.E-30,  l.E+30,  l.E-70,  l.E+70/ 
DATA  ICOUNT  /  0  / 

C 

C  - 

ENTRY  INPUT 

C  - 

C 

READ (IN,*)  NSTEADY 
DT  -  BIG 

IF  (NSTEADY  .NE.  1)  READ (IN, *)  DT 
READ (IN,*)  LAST,  NPRNT 
READ (IN,*)  MODE,  IPREF,  JPREF 

READ (IN,*)  RHOCON,  AMU,  ETA,  ETAF,  FABTHK,  PRCON 
C 

WRITE (10,*)  'NSTEADY' 

WRITE  (-^0,  6100)  NSTEADY 
WRI.r’aO,  *)  'DT' 

WRITE (10, 6102)  DT 

W  ITE(IO, *)  'LAST,  NPRNT,  NTIMES (7)' 

WRITE (10, 6100)  LAST,  NPRNT,  NTIMES (7) 

WRITE (10,*)  'MODE,  IPREF,  JPREF' 

WRITE (10, 6100)  MODE,  IPREF,  JPREF 

WRITE (10,*)  'RHOCON,  AMU,  ETA,  ETAF,  FABTHK,  PRCON' 

WRITE (10, 6102)  RHOCON,  AMU,  ETA,  ETAF,  FABTHK,  PRCON 
C 

6100  FORMAT (1515,/) 

6102  FORMAT (7 (IX, ElO. 4),/) 

C 

C  MESH  GENERATION  DATA 

C 

read(in,*)  ireg,  (icell(i),  idcrs(i),  i-l,ireg) 
readdn,*)  jreg,  (jcell(j),  jdcrs(j),  j-l,jreg) 
readdn,*)  (xl(l),  enx(l),  1-1,  ireg) 
readdn,*)  (yl(j),  eny(j),  j-l,jreg) 

C 

C  TEST  CELL 

C 

READ (IN,*)  IBOXl,IBOX2, JBOX 
C 

C  - 

ENTRY  GRID 

C  - 

C 

C  LI  NUMBER  OF  U  VELOCITY  POINTS 

C  Ml  NUMBER  OF  V  VELOCITY  POINTS 

C 
C 

call  meshgen dreg, Icell, Idcrs, xl, enx, xu, 11) 

^  call  meshgen( jreg, jcell, jdcrs,yl,eny,yv,ml) 

WRITE (10, *)  '  LI,  Ml' 

WRITE (10, 6100)  LI, Ml 
RETURN 
C 
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ENTRY  START 


C  - 

C 

C  READ  RESTART  FILE 

C 

OPEN (UNIT-12 , FILE-' RESTART' , FORM-' UNFORMATTED' ) 

C 

C 

REWIND  12 

READ (12)  LITER 

WRITE (10, *)  '  OLD  ITER  ' 

WRITE (10, 6100)  LITER 
DO  1  K  -  1,6 
DO  1  J  -  1,M1 
DO  1  I  -  1,L1 
READ(12)  F(I,J,K) 

1  CONTINUE 

writedo,*)  'READ  F(I,J,K)  FROM  RESTART  FILE;  LAST  I,J,K  ' 
write  (lo,  6100)  l,j,lc 
DO  2  J  -  1,  Ml 
DO  2  I  -  1,L1 
REAO(12)  AMUT(I,J) 

2  CONTINUE 

writedo,*)  'READ  AMUT(I,J)  FROM  RESTART  FILE;  LAST  I,J' 
WRITE (10, 6100)  I,J,K 
C 

C  GRID  POINT  RANGES  FOR  IMPERVIOUS  BOX  WALLS 

C  AND  THE  RANGE  FOR  THE  INJECTION  VELOCITY 

C 

LBl  -  IBOXl  +  1 
LB2  -  IBOX2  -t-  1 
MBl  -  1 
MB2  -  JBOX  +  1 
C 

C  RANGE  FOR  GRID  POINTS  NEXT  TO  N,S,E,W  WALLS  RESPECTIVELY 
C 

LNWl  -  1 
LNW2  -  LI 
MNW  -  M2 
LSWl  -  LBl 
LSN2  -  LB2 
MSW  -  MB2  +  1 
LEW  -  LBl  -  1 
MEWl  -  1 
MEW2  -  MB2 
LWW  -  LB2  +  1 
MWWl  -  1 
MWW2  -  MEW2 
MNWI  -  MB2  -  2 
LWWI  -  LBl  -I-  2 
LEWI  -  LB2  -  2 
C 

C  GRID  POINT  RANGES  FOR  FABRIC  AND 
C  THE  WIDTH  OF  THE  FABRIC  CELLS 
C 

LFl  -  LBl 
LF2  -  LBl  +  1 
MFl  -  1 
MF2  -  MB2  -  1 
WFl  -  XCV(LFl) 

WF2  -  XCV(LF2) 

C 

C  GRID  RANGES  FOR  INJECTION  VELOCITY 
C 

LVl  -  IBOXl  +  5 
LV2  -  IBOX2  -  2 
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c 

C  SCALED  COEFFICIENT  FOR  THE  FABRIC 
C 

SCFAC  -  FABTHK/(WF1  +  WF2) 

ETAF  -  ETAF/SCFAC 
C 

C  OUTER  RADIUS  AND  DISTANCES  FRm  WALLS  TO 

C  ADJACENT  GRID  POINT 

C 

RMAX  -  Y(M1) 

DISTN  -  YDIF(Ml) 

DISTS  -  Y(MSW)  -  YV(MSW) 

DISTE  -  XU(LEW+1)  -  X(LEW) 

DISTW  -  X(LWW)  -  XU{LWW) 

DISTNI  -  y(MNWI)  -  YV(MNWI) 

DISTEI  -  XU(LEWI+1)  -  X(LEWI) 

DISTWI  -  X(LWWI)  -  XU<LWWI) 

C 

C  WALL  FACTORS 

C 

WRITEdO,  *)  '  AA,  BB,  SCFAC' 

WRITE (10, 6102)  AA,  BB,  SCFAC 

WRITE (10, *)  '  RMAX,  DISTN,  DISTS,  DISTE,  DISTW' 
WRITE (10, 6102)  RMAX,  DISTN,  DISTS,  DISTE,  DISTW 
WRITEdO,*)  '  DISTNI,  DISTEI,  DISTWI' 

WRITE (10, 6102)  DISTNI,  DISTEI,  DISTWI 
WRITE (10,*)  '  IBOXl,  IB0X2,  JBOX' 

WRITEdO,  6100)  IBOXl,  IBOX2,  JBOX 
WRITE (10,*)  '  LBl,  LB2,  MBl,  MB2  ' 

WRITEdO,  6100)  LBl,  LB2,  MBl,  MB2 
WRITEdO,*)  '  LNWl,  LNW2,  MNW,  LSWl,  LSW2,  MSW' 
WRITEdO,  6100)  LNWl,  LNW2,  MNW,  LSWl,  LSW2,  MSW 
WRITEdO,*)  '  LEW,  MEWl,  MEW2,  LWW,  MWWl,  MWW2' 
WRITEdO,  6100)  LEW,  MEWl,  MEW2,  LWW,  MWWl,  MWW2 
WRITEdO,*)  '  LEWI,  LWWI,  MNWI' 

WRITEdO,  6100)  LEWI,  LWWI,  MNWI 

WRITEdO,*)  '  LFl,  LF2,  MFl,  MF2' 

WRITE (10, 6100)  LFl,  LF2,  MFl,  MF2 
WRITEdO,*)  '  WFl,  WF2' 

WRITEdO,  6102)  WFl,  WF2 
C 

C  -  INITIAL  CONDITIONS  - 

C 

DO  11  J  -  1,M2 
DO  11  I  -  1,L1 
AGNT(I,J)  -  0.0 

11  CONTINUE 

DO  12  J  -  1,M1 
AGNT(1,J)  -  1.0 

12  CONTINUE 
RETURN 

C 

C  - 

ENTRY  DENSE 

C  - 

C 

C  - 

ENTRY  BOUND 
C  - 

c 

C  AXIS  AND  OUTER  WALL 

C 

DO  300  I  -  2,  LI 

AGNT(I,1)  -  AGNT(I,2) 

AGNT(I,M1)  -  AGNT(I,M2) 

300  CONTINUE 
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C 

DO  301  1  -  I.V1,LV2 
AGNTd.l)  -  0.0 
AGNT(I,2)  -  0.0 
301  CONTINUE 


INLET  AND  OUTLET 
DO  302  J-1,M2 

AGNT(1,J)  -  1.0*(1.0  -  exp (-TIME/ 100. ) ) 
AGNT(L1,J)  -  AGNT<L2,J) 

302  CONTINUE 

OUTER  AND  BACK  WALLS  OF  CHAMBER 

DO  304  I  -  LB1,LB2 

AGNT(I,MB2+1)  -  AGNT(I,MB2+2) 

304  CONTINUE 

DO  306  J  -  1,MB2 

AGNT(LB2+1, J)  -  AGNT (LB2+2,  J) 

306  CONTINUE 

INTERIOR  WALLS 

DO  310  1  -  LWW1,LEW1 

AGNT(1,MNWI)  -  AGNT(I,MNW1-1) 

310  CONTINUE 

DO  312  J  -  1,MNM1 

AGNT(LEWI,J)  -  AGNT (LEWI-1, J) 

312  CONTINUE 

RETURN 


ENTRY  GRADIENT 


RETURN 


ENTRY  GAMSOR 


S  -  SC  +  SP*U  SO,  AP  -  SP  i  CON  -  SC 

GO  TO  (499, 499,499, 499, 499, 499, 400), NF 

-  C  -  CONCENTRATION  - 

400  CONTINUE 
C 

DO  405  J  -  1,M1 
DO  405  I  -  1,L1 

405  CONtJ5!(Se'‘^‘  '  AMUT(I,J)/PRC0N 

DO  406  I  -  1,L1 
GAM(I,1)  -  0.0 

406  CONTINUE 

DO  407  J  -  1,M1 
GAM(L1,J)  -  0.0 

407  CONTINUE 

^  BOX  WALLS 

DO  408  J  -  1,MB2 

AP(LB2,J)  -  -BIG 
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GAM(LB2,J)  -  0.0 
GAM(LB2+1,J)  -  0.0 
GAM(LB2-1,J)  -  0.0 

408  CONTINUE 

DO  409  I  -  LB1,LB2 
AB(1,MB2)  -  -BIG 

GAM(I,MB2)  -  0.0 
GAM(I,MB2+1)  -  0.0 
GAM(I,MB2-1)  -  0.0 

409  CONTINUE 
C 

C  BOX 

DO  410  J  -  1,MNWI 

DO  410  I  -  LWWI,LEHI 

GAM(I,J)  -  RHOCON*ETA 

410  CONTINUE 

C  FABRIC 

DO  411  J  -  1,MF2 

DO  411  1  -  LF1,LF2 

GAM(I,J)  -  RHOCON*ETAF 

411  CONTINUE 

C  INJECTOR 

DO  412  J  -  1,2 

DO  412  I  -  LV1,LV2 

CON(I,J)  -  0.0 
AP(I,J)  -  -BIG 

412  CONTINUE 

499  RETURN 
C 

C  - 

ENTRY  WALL 

C  - 

C 

C  AJP  ■  An,  AJM  <■  As,  AIP  «  Ae,  AIM  *  Aw 

C 

RETURN 

C  - 

ENTRY  OUTPUT 

C  - 

C 

I COUNT  -  ICOUNT  +  1 

IF  (ITER. NE. LAST  .AND.  NPRNT.LE.l)  RETURN 
C 

IF  (ITER  .EQ.  LAST)  GOTO  500 
IF  (ICOUNT  .NE.  NPRNT)  RETURN 

500  WRITE (10, 612)  TIME 

612  FORMAT (//5X, 'TIME  -  ',E10.4,/) 

WRITE (10,  614) 

614  FORMAT (/5X, 'EAST  WALL  ',/) 

WRITE (10, 606)  (AGNT(LEW, J) , J-1,M1) 

WRITE (10, 616) 

616  FORMAT (/5X, 'WEST  WALL  ',/) 

WRITE (10,606)  ( AGNT (LWW+1 , J) , J-1 , Ml ) 

WRITE (10, 618) 

618  FORMAT (/5X, 'OUTLET  ',/) 

WRITE (10, 606)  (AGNT(L1, J) , J-1,M1) 

WRITE (10,  620) 

620  FORMAT(/,5X,'I  -  LB2',/) 

WRITE (10, 606)  (AGNT{LB2, J),  J-1,M1) 

WRITE (10, 622) 

622  FORMAT(/,5X,  'FOR  I-LEW,LWW+1  J-1,5,10',/) 
LWP  -  LWW  +  1 

WRITE(IO,606)  (AGNT(I,1),  I-LEW,LWP) 

WRITE (10, 606)  (AGNT (1,5),  I-LEW,LWP) 
WRITE(IO,606)  (AGNTd.lO),  1-LEW, LWP) 

C  129 
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lfRITE(IO,623) 

623  FORMAT (/,5X,» FOR  I  -54,64,70  J  -  1,MB2'  /) 
WRITE(IO,606)  (AGNT(54,J),  J-1,MB2) 
MR1TE(IO,606)  (AGMT(64,J),  J-1,MB2) 

WRITE (10, 606)  (AGNT(70,J),  J-1,MB2) 

C 

ICOUNT  -  0 

IF  (ITER  .NE.  LAST)  RETURN 
WRITE (10, 656) LAST, LI, Ml 

656  FORMAT (/5X, 'NO.  ITERATIONS  , 

+  15, 2X, 'Ll, Ml  -  ',213,/) 

WRITE (10, 657) (I,NTIMES (I) , I-1,NFP3) 

657  FORMAT (/2X,'EQN  SWEEPS' , /, 6 (5X, 12, IX, 12) ) 

IF  ( ITER. EQ. LAST)  LSTOP-.TROE. 

WRITE  DATA  TO  FILE  17  FOR  USE  BY  PLOT  PACKAGE 

WRITE (17, 6800)  LI, Ml 
WRITE (17, 6800)  LI, Ml 
WRITE(n,68lO)  (X(I),I-1,L1) 

WRITE (17, 6810)  (Y (1) , I-1,M1) 

DO  4000  J  -  1,M1 
WRITE(17,606)  (AGNT (1, J) , I-l, LI) 

4000  CONTINUE 

606  FORMAT (7 (IX, e9. 3) ) 

6800  FORMAT (IX, 215) 

6810  FORMAT(7(1X,E10.4) ) 

C 

RETURN 

END 

c 

subroutine  meshgen (nreg, ncell, ndcrs, el, en, x, nxs ) 
inpllclt  real*8  (a-h,o-z) 
dimension  ncell(l) ,ndcrs(l) ,el(l) ,en(l) ,x(l) 
c 

x(l)  -  0.0 
x(2)  -  0.0 
mo  -  2 

mf  —  ncell (1)  +  mo 
nxs  -  mo 
c 

do  1  n  -  1 , nreg 

mf  -  ncell (n)  +  mo 
x(mf)  “  x(mo)  +  el(n) 
pwr  -  1.0/en(n) 
nx  -  ncell (n) 
nsgn  -  ndcrs (n) 
nxs  -  nxs  +  nx 

call  coord (pwr, nx, nsgn, mo, mf,x) 
mo  —  mf 

mf  -  ncell (n+1)  +  mo 
1  continue 
return 
end 
c 

subroutine  coord (pwr, nx, nsgn, mo,mf ,  x) 
inqplicit  real*8  (a-h,o-z) 
dimension  x(l),si(100) 

dsi  -  1.0/nx 
si(l)  -  0.0 
si(nx+l)  -  1.0 
do  1  i  -  2,nx 

8l(i)  -  8i(i-l)  +  dsi 
1  continue 
do  2  i  -  l,nx 
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if  (nsgn  .ge.  0)  then 
si(i+l)  —  8i(i+l)**pwr 
else 

8i(i+l)  -  1.0  -  (1.0  -  8i(i+l)) 
endlf 
continue 
xo  -  x(mo) 
xf  -  x(mf) 
nxl  -  nx  +  1 
do  3  i  -  l,nxl 
ix  -  nu3+i-l 

x(ix)  -  (xf  -  xo)*si(i)  +  xo 
continue 
return 
end 


**pwr 
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NSTEADY 

1 

DT 

O.lOOOE+31 

LAST,  NPRNT,  NTIMES{7) 

1000  1000  1 

MODE,  IPREF,  JPREF 
2  120  2 

RHOCON,  AMU,  ETA,  ETAF,  FABTHK,  PRCON 
0.1062E-06  0.2750E-08  0.4400  0.1200E-01  0.2680E-01  0.7000E-^00 

LI,  Ml 
122  32 

LI,  Ml 
122  32 

COMPUTATION  FOR  AXISYMMETRIC  SITUATION 
**************************************** 


OLD  ITER 
1000 

READ  F(I,J,K)  FROM  RESTART  FILE;  LAST  I,J,K 
123  33  7 

READ  AMUT(I,J)  FROM  RESTART  FILE;  LAST  I,J 
123  33  7 

AA,  BB,  SCFAC 

O.OOOOE-t-00  O.OOOOE+00  0.8933E'01 
RMAX,  DISTN,  DISTS,  DISTE,  DISTW 
0.4000E'i-01  0.3207E-01  0.3207E'01  0.1206E+00  0.1206E-»-00 
DISTNI,  DISTEI,  DISTWI 
0.4333E-01  0.7500E-01  0.7500E-01 


IBOXl 

,  IBOX2, 

JBOX 

51 

70 

10 

LBl, 

LB2, 

MBl, 

MB2 

52 

71 

1 

11 

LNWl, 

LNW2 

,  MNW,  LSWl 

,  LSW2,  MSN 

1 

122 

31 

52 

71  12 

LEW, 

MEWl, 

MEW2,  LNW, 

MWWl,  MWW2 

51 

1 

11 

72 

1  11 

LEWI, 

LWWI 

,  MNWI 

69 

54 

9 

LFl, 

LF2, 

MFl, 

MF2 

52 

53 

1 

10 

WFl, 

WF2 

0.1500E+00  0.1500E+00 

TIME  -  0.9990E+33 


EAST  NALL 


O.lOOE+01  O.lOOE-t-01 
0.929E+00  0.929E+00 
0.966E-f00  0.981E-»-00 
O.lOOE-t-01  O.lOOE-t-01 
O.lOOE-t-01  O.lOOE+01 


O.lOOE-^01 

0.8S9E-<-00 

0.991E•^00 

O.lOOE-i-01 

O.lOOE+01 


O.lOOE-^01  0.999E+00 
0.884E-«-00  0.903E+00 
0.996E-^00  0.999E+00 
O.lOOE+01  O.lOOE-t-01 
O.lOOE-i-01 


0.990E-»-00  0.965E+00 
0.924E-t-00  0.946E-I-00 
O.lOOE+01  O.lOOE-t-Ol 
O.lOOE-fOl  O.lOOE-fOl 


NEST  WALL 


0.928E-t-00 

0.926E+00 

0.946E-»-00 

O.IOOE+Ol 

O.lOOE+01 


0.928E-«-00 

0.927E+00 

0.960E-t-00 

O.lOOE-i-01 

O.lOOE-t-01 


0.927E+00 

0.927E-t-00 

0.973E+00 

O.lOOE-i-01 

O.lOOE+01 


0.927E-f00 

0.923E-»-00 

0.985E-t-00 

O.lOOE+01 

O.lOOE+01 


0.926E-I-00 

0.911E-^00 

0.993E+00 

O.lOOE+01 


0.926E+00 
0.922E-i-00 
0 . 997E+00 
O.lOOE-^01 


0.926E-^00 

0.933E-I-00 

O.IOOE+Ol 

O.lOOE-^Ol 


OUTLET 
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0.93SE■^00  0.935E+00  0.940E-t-00  0.946E-i'00  0.9SlE-t-00  0.957E+00  0 . 963E-»-00 

0.968E-»-00  0.973E+00  0.978E-t-00  0.982E-«-00  0.985E+00  0.988E+00  0.990E7-00 

0.993E-»-00  0.995E-«-00  0.996E-i-00  0.998E-t-00  0.999E-«-00  0.999E+00  O.lOOE-t-01 

O.lOOE+01  O.lOOE+01  O.lOOE+01  O.lOOE+01  O.lOOE+01  O.lOOE+01  O.lOOE+01 

O.lOOE+01  O.lOOE+01  O.lOOE+01  O.lOOE+01 

I  -  LB2 

O.OOOE+00  O.OOOE+00  O.OOOE+00  O.OOOE+00  O.OOOE+00  O.'OOOE+OO  O.OOOE+00 

O.OOOE-t-00  O.OOOE+00  O.OOOE-t-00  O.OOOE-t-00  0.919E-t-00  0.919E-t-00  0.929E-<-00 

0.943E-f00  0.958E-»-00  0.972E-t-00  0.983E-«-00  0.992E->-00  0.997E-t-00  O.IOOE+Ol 

O.lOOE+01  O.lOOE+01  O.lOOE+01  O.lOOE+01  O.lOOE+01  O.lOOE+01  O.lOOE+01 

O.lOOE+01  O.lOOE+01  O.lOOE+01  O.lOOE+01 

FOR  I-LEW,LWW+1  J-1,5,10 

O.lOOE-fOl  O.lOOE-t-01  0.999E-t-00  0.508E-I-00  0.276E-f00  O.OOOE+00  0.000E-«-00 

O.OOOE-t-00  O.OOOE-t-00  O.OOOE+OO  O.OOOE-t-00  O.OOOE-t-00  O.OOOE-t-00  O.OOOE+QO 

O.OOOE+00  O.OOOE+00  O.OOOE+00  O.OOOE+00  O.OOOE+00  0.181E-04  O.OOOE+00 

0.928E+00  0.928E+00 

0.999E+00  0.663E+00  0.523E+00  0.174E-01  0.114E-02  0.319E-03  0.355E-03 

0.471E-03  0.410E-03  0.307E-03  0.193E-03  0.617E-04  0.663E-06  0.112E-05 

0.156E-05  0.190E-05  0.244E-05  0.510E-05  0.510E-05  0.181E-04  O.OOOE+00 

0.926E-I-00  0.926E-t-00 

0.859E+00  0.353E-02  0.102E-02  0.133E-03  0.133E-03  0.133E-03  0.133E-03 

0.133E-03  0.133E-03  0.i25E-03  0.103E-03  0.624E-04  0.351E-04  0.279E-04 

0.257E-04  0,257E-04  0.257E-04  0.257E-04  0.257E-04  0.257E-04  O.OOOE+00 

0.927E+00  0.927E+00 

FOR  I  -  54,64,70  J  -  1,MB2 

0.508E+00  0.508E+00  0.205E+00  0.754E-01  0.174E-01  0.166E-02  0.213E-03 

0.182E-03  0.182E-03  0.133E-03  O.OOOE+00 

O.OOOE+00  O.OOOE+00  0.668E-06  O.lOOE-05  0.112E-05  0.112E-05  0.129E-05 

0.280E-05  0.280E-05  0.279E-04  O.OOOE+00 

0.181E-04  0.181E-04  0.181E-04  0.181E-04  0.181E-04  0.182E-04  0.187E-04 

0.198E-04  0.220E-04  0.257E-04  O.OOOE+00 


TIME  -  O.lOOOE+34 


EAST  WALL 

O.lOOE+01  O.lOOE+01  O.lOOE+01  O.lOOE+01  0.999E+00  0.990E+00  0.965E+00 

0.929E+00  0.929E+00  0.859E+00  0.884E+00  0.903E+00  0.924E+00  0.946E+00 

0.966E+00  0.981E+00  0.991E+00  0.996E+00  0.999E+00  O.lOOE+01  O.lOOE+01 

O.lOOE+01  O.lOOE+01  O.lOOE-^01  O.lOOE+01  O.IOOE+Ol  O.lOOE+01  O.lOOE+01 

O.lOOE+01  O.lOOE+01  O.lOOE+01  O.lOOE+01 

WEST  WALL 

0.928E+00  0.928E+00  0.927E+00  0,927E+00  0.926E+00  0.926E+00  0.926E+00 

0.926E+00  0.927E+00  0.927E+00  0.923E+00  0.911E+00  0.922E+00  0.933E+00 

0.946E+00  0.960E+00  0.973E+00  0.985E+00  0.993E+00  0.997E+00  O.lOOE+01 

O.lOOE+01  O.lOOE+01  O.lOOE+01  O.lOOE+01  O.lOOE+01  O.IOOE+Ol  O.IOOE+Ol 

O.lOOE+01  O.lOOE+01  O.lOOE+01  O.lOOE+01 

OUTLET 

0.935E+00  0.935E+00  0.940E+00  0.946E+00  0.951E+00  0.957E+00  0.963E+00 

0.968E+00  0.973E+00  0.978E+00  0.982E+00  0.985E+00  0.988E-4-00  0.990E+00 

0.993E+00  0.995E-f00  0.996E+00  0.998E+00  0.999E-f00  0.999E-»-00  O.lOOE+01 

O.lOOE-fOl  O.IOOE+Ol  O.lOOE+01  O.lOOE+01  O.lOOE-t-01  O.lOOE-i-01  O.IOOE+Ol 

O.lOOE+01  O.lOOE+01  O.lOOE+01  O.IOOE+Ol 
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I  -  LB2 


O.OOOE-^00 

O.OOOE-^00 

O.OOOE-^00 

0.000E4-00 

O.OOOE-t-00 

O.OOOE-^00 

O.OOOEt-00 

O.OOOE-t-00 

0.000E-»-00 

O.OOOE-t-00 

0.000E-»^00 

0.919E-^00 

0.919E-»^00 

0.929E-^00 

0.943E-t-00 

0.958E-»-00 

0.972E+00 

0.983E+00 

0.992E-t-00 

0.997E+00 

O.lOOE+01 

O.lOOE+01 

O.lOOE+01 

O.lOOE+01 

O.lOOE+01 

O.lOOE+01 

O.lOOE-t-01 

O.lOOEt-01 

O.lOOE+01 

O.lOOE+01 

O.lOOE+01 

O.lOOE+01 

FOR  I-LEW, LWW+1 

J-1,5,10 

O.IOOE+Ol 

O.lOOE-t-01 

0.999E-«-00 

0.S08E-H00 

0.276E+00 

O.OOOE-^00 

0.000E-«-00 

O.OOOE-fOO 

0.000E400 

O.OOOE-t-00 

O.OOOE-t^OO 

0.000E-»^00 

O.OOOE-fOO 

O.OOOE-^00 

O.OOOE+00 

O.OOOE+OO 

O.OOOE-i-OO 

0.000E-«-00 

O.OOOE-t-00 

0.181E-04 

O.OOOE+OO 

0.928E^OO 

0.928E-»-00 

0.999E-t-00 

0.663E-t-00 

0.523E+00 

0.174E-01 

0.114E-02 

0.319E-03 

0.355E-03 

0.471E-03 

0.410E-03 

0.307E-03 

0.193E-03 

0.617E->04 

0.663E-06 

0.112E-05 

0.156E-05 

0.190E-05 

0.244E-05 

0.510E-05 

0.510E-05 

0.181E-04 

O.OOOE-t-00 

0.926E-»-00 

0.926E->-00 

0.859E-«-00 

0.353E-02 

0.102E-02 

0.133E-03 

0.133E-03 

0.133E-03 

0.133E-03 

0.133E-03 

0.133E-03 

0.125E-03 

0.103E-03 

0.624E-04 

0.351E-04 

0.279E>04 

0.257E-04 

0.257E-04 

0.257E-04 

0.257E-04 

0.257E-04 

0.257E-04 

O.OOOE+00 

0.927E+00 

0.927E+00 

FOR  1 

:  -  54,64, 

70  J  -  1 

.,MB2 

0.508E-«-00 

0.508E-t-00 

0.205E-t-00 

0.754E-01 

0.174E-01 

0.166E-02 

0.213E-03 

0.182E-03 

0.182E-03 

0.133E-03 

O.OOOE+00 

O.OOOE-t-00 

O.OOOE-^00 

0.668E-06 

O.IOOE-OS 

0.112E-05 

0.112E-05 

0.129E>05 

0.280E-05 

0.280E>05 

0.279E-04 

O.OOOE-^00 

0.181E-04 

0.181E-04 

0.181E-04 

0.181E-04 

0.181E-04 

0.182E>04 

0.187E-04 

0.198E-04 

0.220E-04 

0.257E-04 

O.OOOE+00 

NO.  ITERATIONS  - 

•  1000  LI, 

Ml  -  122  : 

32 

EQN  SWEEPS 

1  1 

2  1 

3  1 

4  1 

5  1 

6  1 

7  1 
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APPENDIX  G 
VcctMT  Pl«ttfaig  PngnuB 


The  vector  plotting  routine  that  follom  was  developed  specifically  for  ose  with  the 
code  used  to  solve  the  flow  field.  It  uses  the  plot  file  generated  by  the  user  routines  for  the 
majority  of  the  input.  The  only  other  input  required  is  prompted  for  at  the  b^inning  of  a 
run.  The  prompts  are  sdf  explanatory.  Since  the  u  and  v  velocity  components  are 
computed  at  different  locations  they  are  interpolated  to  the  main  grid  points  before  the 
vectors  for  plotting  are  defined.  This  is  accomidished  in  subroutine  SPEED.  The  arrow 
heads  for  the  vectors  are  constructed  in  subroutine  ARROW.  The  code  uses  SUNCORE 
graphics  routines  which  are  no  longer  supported  by  SUN  Microsystems.  However,  these 
routines  are  still  available  in  "old”  libraries.  The  code  can  be  readily  converted  to  another 
graphics  system  if  required. 
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c 

c  vector  plots  using  suncore 
c 

c  Input  is  either  prompted  from  the  screen  and  entered  from  the 
c  keyboard  or  it  is  from  the  plot  data  output  file  from  the 
c  model.  UNIT  15  is  used  to  read  the  plot  datafile.  The  name  of 
c  the  plot  datafile  is  prompted  for.  Prompted  data  is  self  explanatory 
c 

include  "/usr/include/f 77/usercore77 .h" 
c 

parameter  (id  -  500,  jd  -  500) 
integer  vsurf (VWSURFSI2E) 
integer  pixwindd 
external  pixwindd 

integer  InltiallzeCore,  InitlalizeVwsurf ,  SelectVwsurf 
c 

dimension  x(id) ,y ( jd) ,xg(id) ,yg( jd) ,u(id, jd) ,v(id, jd) , 
ug ( id, jd) , vg (id, jd) 
c 

c  X  &  y  are  input  grid  points 
c  xg  &  yg  are  shifted  and  scaled  grid  points 
c  u  £  V  are  cell  face  velocities 
c  ug  &  vg  are  grid  point  velocities 
c 

character*6  pfile 
character*60  title 
character*60  subtitle 
c 

data  vsurf  /VWSURFSIZE*0/ 
c 

write (*,60) 

60  format (2x, ' enter  input  datafile  name  (usually  PLOT15) ,  format  a6' ) 
read(*,61)  pfile 

61  format (a6) 
write (*, 62) 

62  format (2x, ' enter  title,  format  a60' ) 
read(*,64)  title 

write (*,63) 

63  format (2x, 'enter  subtitle,  format  a60') 
read(*,64)  subtitle 

64  format (a60) 
write (*, 66) 

66  format (2x, 'enter  NSYMX,  NSYMY  ;  -  0  nonsymmetry,  -  1  symmetry') 
read(*,*)  nsymx,  nsymy 
write (*, 68) 

68  format (2x, ' enter  reduction  factor  for  velocities  -  e.g.  6.0') 
read(*,*)  vscale 

write (*, 69) 

69  format (/2x, ' enter  INCR  -  plotting  increment 

;  2x,'e.g.  1  plots  vectors  at  every  point,  2  at  every  other') 
read(*,*)  incr 
write (*, 70) 

70  format (/2x, 'do  you  want  subregion  plotting  ?',/, 

2x,' enter  1  for  yes  or  0  for  no.  if  you  enter  1',/, 

2x,'on  the  next  line  enter  the  Indlcies  for  the  region',/, 

:  2x,'to  be  plotted  IFIRST,  ILAST,  JFIRST,  JLAST' ) 

read(*,*)  imag 

if  (imag.eq.l)  read(*,*)  ifst, list, jfst, jlst 


c 

c 

c 

vsurf (DDINDEX)  -  loc (pixwindd) 

if  (InltiallzeCore (BASIC,  NOINPUT,  TNOD)  .ne.  0)  call  exit(l) 
if  (InitlalizeVwsurf (vsurf,  FALSE)  .ne.  0)  call  exit (2) 
if  (SelectVwsurf (vsurf )  .ne.  0)  call  exit (3) 
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u  u 


c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


c 


c 

c 


c 

c 

c 

c 


c 


c 


open (unit-15, f ile-pf ile, status-' old' ) 

since  SUNCORE  assumes  a  window  y:x  -  3:4 
the  program  assumes  a  window  from  0.0  to  16.0  in 
the  horizontal  direction  and  from  0.0  to  12.0  in 
the  vertical  direction.  Plotting  takes  place  in 
an  11.0  by  11.0  region  starting  at  4.0,  0.5.  The 
remaining  space  can  be  used  for  textual  information. 

setup  window  coordinates 

xlft  -  0.0 
xrgt  -  16.0 
ybot  -0.0 
ytop  -  12.0 
xo  -  4 . 0 
yo  -  0.5 
size  -  11.0 

call  input (id, jd, nx, ny, x, y, u, v, pf ile) 
call  SetNdcSpace2 (1 .0,  0.75) 

use  the  following  call  to  scale  horlz  and  vertical  directions 
to  coiig>ensate  for  the  difference  in  the  number  of  pixels  in 
each  direction 

call  SetVlewport2(0.0,1.0,  0.0,0.75) 
call  SetHlndow(xlft,  xrgt,  ybot,  ytop) 
call  CreateTempSegO 

call  coords (nx, ny , x, y, xo, yo, nsymx, nsymy, size,  xg, yg, 

Imag, ifst,ilst, jfst, jlst) 
call  speed (id, jd, nx,ny,u, v, ug,vg,  vmax) 

call  velplt (id, jd,xg,yg,ug,vg,xo,yo, nsymx, nsymy, size, vmax, 

:  vscale,lncr,ifst, list, jfst, jlst) 


xt  -  0.5 
yt  -  11.75 

call  label (xt,yt, titled:  60) ) 
yt  -  11.55 

call  label(xt,yt,subtitle(l:60) ) 


close  and  exit 

call  CloseTempSeg ( ) 
call  sleep (60) 
call  Deselect Vwsurf (vsurf) 
call  TermlnateCore ( ) 
end 

subroutine  input (id, jd, nx, ny, x, y, u, v, pf ile) 
dimension  x(l) ,y(l) ,u(id, jd) , v(id, jd) 
character*6  pfile 

open (unit-15, f ile-pf ile, status-' old' ) 

read(15,*)  nx,ny 
readd5,*)  (x(i),  1-1, nx) 
read(15,*)  (y(j),  j-l,ny) 

note  that  xu,  yv  i  rho  are  not  used  but  must  be  read 
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c 


c 


c 

c 

c 

c 


c 


c 

c 

c 

c 

c 

c 

c 

c 


read(15,*)  (xu,  1-1, nx) 
read (15, *)  (yv,  j-l,ny) 
do  1  j  -  l,ny 

read{15,*)  (rho,  i  -  l,nx) 

1  continue 

do  2  j  -  1 , ny 

readdS,*)  (u(i,j),  1  -  l,nx) 

2  continue 

do  3  j  -  1 , ny 

read(15,*)  (v(i,j),  1  -  i,nx) 

3  continue 

close (unit-15,  status-' keep' ) 

return 

end 

subroutine  coords  (nx,  ny,  x,y,  xo,  yo,nsyiiix,  nsymy,  size,  xg,  yg, 

Inag,  If  s,  11s,  jf  s,  jls) 

dimension  x (1) ,y(l) ,xg(l) ,yg(i) 

xo  &  yo  origin 

plot  window  Is  size  by  size 

if  (imag.eq.O)  then 
ifs  -  1 
ils  -  nx 
jfs  -  1 
jls  -  ny 
endlf 

sea  -  x(ils)  -  x(lfs) 
scay  -  y(jls)  -  y(jf8) 
if  (nsymx.eq.l)  sea  -  2.0*sca 
if  (nsymy. eq.l)  scay  -  2.0*8cay 
If  (sea . It . scay)  sea  —  scay 
If  (nsymx.eq.l)  xo  -  xo  slze/2.0 
if  (nsymy. eq.l)  yo  -  yo  +  8lze/2.0 
do  10  1  -  l,nx 

xg(i)  -  (x(i)  -  x(ifs))*8ize/sca  +  xo 

10  continue 

do  11  j  -  l,ny 

^  yg(j)  -  (y(j)  -  y(jfs))*8ize/sca  +  yo 

11  continue 
return 
end 


®**^^®'*^^**®  speed  (id,  jd,  nx,  ny,  u,  v,  ug,  vg,  vmax) 
dimension  u(id,  jd) ,v(id, jd) ,ug(ld, jd) ,vg(id,  jd) 

components  at  the  grid  points  by  interpolation 
of  cell  face  components,  the  grid  points  lie  half  way 

used**”  ^^*  faces,  only  the  interior  points  are  actually 


corner  points 

ug(l,l)  -  u(2,l) 
vg(l,l)  -  v(l,2) 
ug(nx,l)  -  u(nx,l) 
vg(nx,l)  -  v(nx,2) 
ug(l,ny)  -  u(2,ny) 
vg(l,ny)  -  v(l,ny) 
ug(nx,ny)  -  u(nx,ny) 
vg(nx,ny)  -  v(nx,ny) 


nl  -  nx  -  1 
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c 

c 

c 


ml  -  ny  -  1 
bottom  i  top  points 


c 

c 

c 


c 

c 

c 


c 

c 

c 


c 


c 

c 

c 


c 


c 

c 

c 


do  2  i  -  2,nl 

ugd.l)  -  +  u(i+l,l)) /2.0 

vg(i,l)  -  v(i,2) 

ug(i,ny)  -  (u(i,ny)  +  u(i+l,ny) )/2.0 
vg(i,ny)  -  v(i,ny) 

2  continue 

left  &  right  points 


do  4  j  -  2, ml 
ug(l,j)  -  u(2,j) 
vg<l»j)  "  (v(l,j)  + 
ug(nx,j)  -  u(nx,j) 
vg(nx,j)  -  <v(nx,j) 
4  continue 


v{l, j+l))/2.0 
+  v(nx, j+1) )/2.0 


interior  points 

do  6  i  «  2,nl 
do  6  j  -  2, ml 

ug(i,j)  -  (u(i,j)  +  u(i+l, j))/2.0 
vg(i,j)  -  (v(i,  j)  +  v(i, j+l))/2.0 
6  continue 

max  speed 

vroax  »  -l.OeSO 
nxl  ■  nx-1 
nyl  ■■  ny-1 
do  8  i  -  2, nxl 

do  8  j  -  2, nyl 

spd  ■■  sqrt(ug(i,  j)**2  +  vg(i,  j)**2) 
if  (vroax  .It.  spd)  vmax-spd 
8  continue 
return 
end 

subroutine  velplt (id, jd, xg, yg, ug, vg, xo, yo, nsymx, nsymy, 

;  size,vmax,vscale,incr,ifs,ils,  jfs,  jls) 

dimension  xg(l) ,yg(l) ,ug(id, jd) ,vg(id, jd) ,xx(5) ,yy(5) 

plot  confutation  domain 

xx(l)  -  xg(ifs) 
xx(2)  •*  xg(ils) 

if  (nsymx. eq.l)  xx(l)  -  2.0*xo  -  xx(2) 
xx(3)  -  xx(2) 

XX (4)  -  XX (1) 
xx<5)  -  xx(l) 
yy(i)  -  yg(jts) 
yy(4)  -  yg(jls) 

if  (nsymy. eq.l)  yy(l)  ■  2.0*yo  -  yy(4) 
yy(2)  -  yy<l) 
yy(3)  -  yy(4) 
yy(5)  -  yy(i) 
n5  «  5 

call  inoveabs2  (xx(l)  ,yy  (1) ) 
call  polylineabs2 (xx,yy,n5) 

plot  frame 
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c 


c 

c 

c 


c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


xx(l)  -  KO 

if  (nsymx.e^. 1)  xx(l)  «  xo  -  size/2. 

XX (2)  **  XX (1)  *  size 
xx(3)  ”  xx(2) 
xx(4>  •*  xx(l) 
xx(5)  “  xx(l) 
yy(i)  -  yo 

if  (nsymy.eq.l)  yy(l)  -  yo  -  size/2. 

yy(2)  <-  yy(i) 

yy(3)  -  yy(i)  +  size 

yy(4)  “  yy(3) 

yy(5)  -  yy(l) 

call  inoveados2  (xx(l)  ,yy  (1) ) 
call  polylineabs2 (xx,yy,n5) 

plot  vectors 

nxl  -  ifa  +  1 

nyl  ••  jfs  +  1 

nx2  -  ils  -  1 

ny2  jls  -  1 

do  10  i  *■  nxl,nx2,lncr 

do  10  j  -  nyl,ny2,incr 

xx(l)  -  xg(i) 

yy(i)  -  yg(j) 

XX (2)  «  XX (1)  +  ug(i, j) / (vmax*v8cale) 
yy(2)  -  yy(l)  +  vg(i,  j)  / (vinax*vscale) 
call  arrow  (xx,yy,xo,yO/nsynix,nsyiny,size) 

10  continue 
return 
end 

subroutine  arrow (xx, yy, xo,yo, nsywx, nsymy , size) 
dimension  xx(l) ryy(l) >xa(3) rya(3) ,xa(2) ,ys(2) , 

:  xsa(3) ,ysa(3) 

yl  ♦  *  xl 

♦  * 


* 

«  * 

s  *  *  sy 

*  * 

*  angle  * 

*********************** 

sx 

xl  £  yl  local  axes  at  the  arrowhead 

xa  &  ya  are  arrowhead  coords  in  the  xg  yg  system 

xs,  ys  are  used  for  symmetry  plots  of  the  vector 
xsa,  ysa  are  used  for  symmetry  plots  of  the  arrowhead 
sx  £  sy  are  coords  of  tip  relative  to  the  tail 
cs  £  an  are  the  cosine  and  sine  of  the  angle 

pi8  -  3.14158/8.0 
sx  -  xx<2)  -  xx(l) 
sy  -  yy(2)  -  yy(l) 
s  -  8qrt(sx**2  +  sy**2) 
if  (s  .It.  lO.e-10)  return 
sa  -  8/5. 
xl  -  >sa*cos(pi8) 
yl  -  sa*8ln(pl8) 
cs  -  sx/s 
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c 

c 

c 


c 

c 

c 


c 


c 

c 

c 


c 


c 

c 

c 


c 


c 

c 

c 


c 

c 


c 


sn  -  sy/s 


arrowhead  coordinates 

xa(l) 

-  xx(2) 

+ 

xl*cs 

-  yl*sn 

ya(l) 

-  yy(2) 

+ 

xl*an 

+  yl*cs 

xa(2) 

-  xx(2) 

ya(2) 

-  yy(2) 

xa(3) 

-  xx(2) 

+ 

xl*cs 

+  yl*8n 

ya(3) 

-  yy(2) 

+ 

xl*sn 

-  yl*cs 

draw 

arrow 

n2  -  2 
n3  -  3 

call  moveabs2 (xx(l) ,yy (1) ) 
call  polyllneabs2 (xx, yy, n2) 
call  nioveab82  (xa(l)  ,ya(l) ) 
call  polyllneab82 (xa,ya,n3) 

if  (nsymx.eq.l)  then 
xa(l)  -  2.*xo  -  xx(l) 
xs(2)  -  2.*xo  -  xx(2) 
xaa(l)  -  2.*xo  -  xa(l) 

X3a(2)  -  x3(2) 

xaa(3)  -  2.*xo  -  xa(3) 

draw  arrow 

call  moveabs2 (x8 (1) ,yy (1) ) 
call  polyllneab82 (xs, yy,n2) 
call  inoveabs2  (xsa  (1)  ,ya  (1) ) 
call  polyllneab82 (xsa,ya,  n3) 

endif 

if  (nsymy .eq. 1)  then 
ys(l)  -  2.*yo  -  yy<l) 
ys(2)  “  2.*yo  -  yy(2) 
ysa(l)  -  2.*yo  -  ya{l) 
ysa(2)  -  y8(2) 
yaaO)  -  2.*yo  -  ya(3) 

draw  arrow 

call  inoveabs2  (xx(l)  ,ys(l) ) 
call  polylineabs2 (xx,ys,n2) 
call  moveabs2 (xa(l) /ysa(l) ) 
call  polyllneabs2 (xa,y8a,n3) 

endif 

if  (nsymx.eq.l  .and.  nsymy. eq.l)  then 
draw  arrow 

call  moveabs2  (xs(l)  ryad) ) 
call  polyllneab82 (X8,ya,n2) 
call  moveab82 (xsa(l) ,ysa(l) ) 
call  polyllneabs2 (xsa,ysa,n3} 

endif 

return 

end 

subroutine  label (x,y, sv) 
character  *(*)  sv 
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call  moveabs2 (x,  y) 
call  text(sv) 
return 
end 
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APPENDIX  H 
Contour  Plottiug  Program 


The  code  used  for  plotting  contours  follows.  The  input  for  the  code  is  explained  on 
the  first  page  of  the  code.  The  code  plots  contours  on  a  cdl  by  cell  basis.  A  cell  is  defined 
by  four  grid  points.  The  locations  along  the  sides  of  a  cell  through  which  contours  pass  are 
found  by  interpolation  of  the  values  at  the  grid  points.  All  the  contours  passing  through  a 
given  cdl  are  plotted  before  moving  on  to  the  next  ceU.  The  code  was  developed  to  use  the 
grid  numbering  scheme  used  in  the  solution  code.  The  solution  code  calculates  all  scalars 
such  as  pressure,  concentration,  temperature,  etc.  at  the  main  grid  points  so  these  can  be 
used  directly  by  the  contour  plotting  package.  To  plot  streamlines,  however,  the  velocity 
components  must  be  interpolated  from  ceU  faces  to  the  grid  points.  This  is  accomplished  in 
subroutine  STREAM.  Integration  of  the  velocity  to  compute  the  stream  function  is  also 
performed  here.  The  variable  T(I,J)  is  used  to  store  the  values  for  contour  plotting.  As  for 
the  vector  plotting  code,  this  code  is  written  using  SUNCORE  graphics  routines  but  could 
be  easily  converted  to  some  other  system. 
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ooooo  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  n  n  o  n  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o 


PLOTTER 


CONTOUR 

THREE  FILES  ARE  OPENED  FOR  INPUT  AND  OUTPUT  THEY  ARE: 


10 

INPUTS 

THIS 

CONTROLS  THE  PLOTTING 

15 

PLOT15 

THIS 

IS  THE  PLOT  FILE  FROM  THE 

FLOW 

CALCULATIONS 

16 

CNTRDAT 

PRINTED  OUTPUT 

INPUT  DATA  IS  FREE  FIELD 

DATA  IN  THE  CODE  PROMPTS  YOU  FOR  AND  THAT  IS  ENTERED 
FRC»4  THE  KEYBOARD 

NSETS,  NSTRM 

WHERE  NSETS  NUMBER  OF  SETS  OF  SCALARS  FOR 

WHICH  CONTOUR  PLOTS  ARE  TO 
TO  BE  MADE 

NSTRM  -  0  NO  STREAMLINES 
.  1  STREAMLINES 

OTHER  PROMPTED  INPUT  IS  SELF  EXPLANATORY 
DATA  FROM  FILE  INPUTS 


NCNTRS,  NTIMES,  NSYMX,  NSYMY,  MODE 
NBND 

IF  NBND  -  1  THEN 
(NPTS(J),  J  -  1,NBND) 

(XB(I,J),  YB(I,J),  I  -  1,K) 


WHERE 


NCNTRS 

NTIMES 

NSYMX 

NSYMY 

MODE 


NUMBER  OF  CONTOURS  TO  BE  PLOTTED 
0  OR  1  (NOT  CURRENTLY  USED) 

1  SYMMETRIC  W.R.T.  HORIZONTAL  X-AXIS 
0  NOT  SYMMETRIC 

1  SYMMETRIC  W.R.T.  VERTICAL  Y-AXIS 
0  NOT  SYMMETRIC 

1  CARTESIAN  COORDINATES 

2  AXISYMMETRIC  CYLINDRICAL  COORDINATES 


NBND  NUMBER  OF  BOUNDARIES  TOBE  PLOTTED  FOR 

HIGHLIGHTING  THE  PROBLEM  DOMAIN 
NPTS  mniBER  OF  POINTS  ON  EACH  CONTINUOUS 

BOUNDARY 

XB,YB  X  *  Y  COORDINATES  OF  THE  CONTINUOUS 

SECTIONS  OF  THE  BOUNDARIES 


Include  "/usr/old/usercore77 .h" 

PARAMETER  (ID-500, JD-500) 

DIMENSION  P(ID) ,P5(ID),X(ID),Y(ID>,NL(4),EL(4) ,T1(4),T2 (4)  , 

1  XX(4) ,YY(4),XC(2),YC(2),DEL(ID,4),TP(TO,4), 

2  XS(ID,4) ,YS(ID,4) ,XB(21,60) ,YB(21,60) ,NPTS(21) , 

3  XF(5) ,YF(5) ,XG(ID),YG(ID) 

C(»®«)N  T(ID,  JD)  ,R(ID,  JD),0(ID,JD)  ,V(ID,  JD) 

CHARACTER*60  TITLE,  SUBTITLE,  SSTITLEl 
CHARACTER*10  NAMEl,  NAME2,  NAMES 
CHARACTER* 10  VALl,  VAL2,  VAL3 

****-k****'k****il*ir1r**'k1Hr*iHt1i*itmnt1i1H)1nmil1liHt**iHi****it**irim*1HHt******iHf1tli 


INITIATE  PLOTTER 

Integer  vsurf (vwsurf size) 

Integer  pixwlndd 
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external  pixwindd 

integer  initializecore,  initializevwsurf,  selectvwsurf 
data  vsurf  /vwsurfaize*0/ 

C 

DATA  NAMEl,  NAME2,  NAME3  /'MIN',  'MAX',  'NUMBER'  / 

DATA  SSTITLEl  /'STREAMLINES'/ 

C 

OPEN (UNIT-10, FILE-' INPUTS' , STATUS-' OLD'  ) 

OPEN (UNIT-15,  FILE-' PLOT15' , STATUS-' OLD' ) 

OPEN (UNIT-16, FILE-' CNTRDAT' , STATUS-' OLD' ) 

OPEN (UNlT-25, FILE-' CHARACT' , STATUS-' OLD'  ) 

C 

WRITE (*,660) 

660  FORMAT (/2X, 'ENTER  NSETS  &  NSTRM' ) 

READ(*,*)  NSETS,  NSTRM 

WRITE (*, 667) 

READ (*,661)  TITLE 

661  FORMAT (A60) 

WRITE (*,668) 

READ (*,661)  SUBTITLE 

667  FORMAT (/2X, 'ENTER  TITLE' ) 

668  FORMAT (/2X, 'ENTER  SUBTITLE') 

WRITE (*,669) 

669  FORMAT (/2X, 'DO  YOU  WANT  TO  PLOT  A  SUBREGION  ?',/, 

;  2X, 'ENTER  1  FOR  YES  OR  0  FOR  NO.  IF  YOU  ENTER  1',/, 

:  2X,'ON  THE  NEXT  LINE  ENTER  THE  INDICIES  FOR  THE  REGION',/, 

:  2X,'TO  BE  PLOTTED:  IFIRST, ILAST,  JFIRST,  JLAST' ) 

READ(*,*)  IMAG 

IF  (IMAG.EQ.l)  READ<*,*)  IFST, ILST, JFST, JLST 
C 

c  open  suncore  graphics 
c 

vsurf (ddindex)  -  loc (pixwindd) 

if  (initializecore (basic,  noinput,  twod)  .ne.  0)  call  exit(l) 
if  (initializevwsurf (vsurf,  false)  .ne.  0)  call  exit (2) 
if  (selectvwsurf (vsurf )  .ne.  0)  call  exit (3) 
c 

c  since  SUNCORE  assumes  a  window  ytx  -  3:4 
c  the  program  assumes  a  window  from  0.0  to  16.0  in 

c  the  horizontal  direction  and  from  0.0  to  12.0  in 

c  the  vertical  direction.  Plotting  takes  place  in 

c  an  11.0  by  11.0  region  starting  at  4.0,  0.5.  The 

c  remaining  space  can  be  used  for  textual  information, 

c 

c  setup  window  coordinates 
c 

xlft  -  0.0 
xrgt  -  16.0 
ybot  -  0.0 
ytop  -  12.0 
xo  -  4.0 
yo  -  0.5 
size  -  11.0 
c 

call  setndcspace2 (1 .0,  0.75) 
call  setviewport2 (0.0,1.0,  0.0,0.75) 
call  setwindow(xlft,  xrgt,  ybot,  ytop) 
call  createteinpseg() 
c 

LBUG  -  0 

INPUT  PLOT  CONTROL  PARAMETERS  USING  FILE  10 

READ (10,*)  NCNTRS , NTIMES , NS YMX , NS  YMY , MODE 

145 


c 

c 


100 

1 

c 

c 

c 


c 


c 


1000 

c 

c 

c 


c 


670 


671 


130 

132 

C 


MSET  -  1 

READ(10,*)  MBMD 

IF  (NBND.EQ.O)  GO  TO  1 

READ (10,*)  (NPTS(J) ,  J«1,IIBND) 

DO  100  J  -  1,NBND 
K  -  NPTS(J) 

READdO,*)  (XB(I,J),  I  -  1,K) 

CONTINUE 

CONTINUE 

INPUT  GEOMETRY  AND  FIEU>  VALUES  USING  FILE  15 

READ(15,*)  NX, NY 
READ(15,*)  (X(I),  I  -  1,NX) 

READ(15,*)  (Y(I),  I  -  l,NY) 

IF  (NSTRM.EQ.l)  READ (15,*)  (XU,  I  -  1,NX) 

IF  (NSTRM.EQ.l)  READ(15,*)  (YV,  I  -  1,NY) 

IF  (LBUG.GT.O)  THEN 
WRITE (16,*)  'NCNTRS,NVALO,NX,NY' 

WRITE (16,*)  NCNTRS,NVALO,NX,NY 
ENDIF 

NSSTITLE  -  0 

IF  (NSTRM  .EQ.  1)  NSSTITLE  -  1 
CALL  STREAM (NX, NY, MODE, MSET, NSTRM, X, Y, PMAX, PMIN) 

DEFINE  THE  SET  OF  CONTOURS 

PINC  -  (PMAX  -  PMIN)/(NCNTRS-1) 

PMIN  -  PMIN  +  PINC/1000. 

PMAX  -  PMAX  -  PINC/1000. 

PINC  -  (PMAX  -  PMIN)/ (NCNTRS-1) 

REWIND  25 

WRITE (25, 670)  PMIN, PMAX, NCNTRS 
FORMAT (2 ( IX, ElO. 4), IX, 110) 

REWIND  25 

READ (25, 671)  VALl,  VAL2,  VAL3 
FORMAT (3 (IX, AlO)) 

IF  (NCNTRS. EQ.l)  PINC  -  0.0 
TOL  -  PINC/10. 

P(l)  -  PMIN 
NLN  -  1 
N5  -  0 

IF  (NCNTRS . EQ . 1 )  GO  TO  132 
DO  130  I  -  2, NCNTRS 
P(l)  -  P(I-l)  +  PINC 
IF  (NLN  .EQ.  5)  THEN 
N5  -  N5  +  1 
P5(N5)  -  P(I) 

ENDIF 

NLN  »  NLN  +  1 

IF  (NLN  .EQ.  6)  NLN  -  1 

CONTINUE 

CONTINUE 

IF  (LBUG.EQ.l)  NRITE(16,*)  '  P' , (P (I) , I-l, NCNTRS) 


c  plot  frame 

c 

xf(l)  -  xo 

x£(2)  -  xf(l)  +  size 
xf(3)  -  x£(2) 
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i 


xf(4)  -  xf(l) 
xf(5)  -  xf(l) 
yf(l)  -  yo 
yf{2)  -  yf(l) 
yf(3)  -  yf(l)  +  size 
yf(4)  -  y£(3) 
y£(5)  -  yf(l) 
c 

line  -  0 

call  setllnestyle (line) 
call  setlinewldth(0.2) 
call  moveabs2 (x£(l)  ,yf (1) ) 
call  polylineab82 (xf ,yf ,5) 
call  setlinewidth (0.0) 
c 

c  label  plot 


xt  -  0.5 
yt  -  11.75 

call  label  (xt.yt,  titled:  60) ) 

yt  -  11.5 

call  label(xt,yt, aubtitle(l:60) ) 

yt  -  11.25 

(nsstitle.eq.l)  call  label (xt, yt, sstitlel (1 : 60) ) 
nsstitle  “0 
yt  -  10.0 

call  label(xt,yt,namel(l:10) ) 
xt  -  2,0 

call  label (xt,yt, valid:  10) ) 
xt  -  0.5 
yt  -  9.75 

call  label  (xt,yt,name2d:  10) ) 
xt  -  2.0 

call  label  (xt,yt,val2d:  10) ) 
xt  -  0.5 
yt  -  9.5 

call  label  (xt,yt,naine3  (1:10)) 

xt  -«  2.0 

call  label (xt,yt,val3(l; 10) ) 

call  coords (nx, ny, x, y, nbnd, npts, xb, yb, xo, yo, nsynw, nsymy , 
xpo,ypo,8ize,xg,yg, imag, ifst, ilst, jfst, jlst) 


NSYM  -  0 

IF  (NTIMES.EQ.O)  NTIMES 
ccccccccccc  DO  700  ITIME 
ccccccccccc  READ (15,*)  ( 


-  1 

-  1, NTIMES 

(T(I,J),I-l,NX),  J-1,NY) 


31 


IF  (LBUG.EQ.l)  THEN 
WRITE (16,*)  '  NX,NY', 
WRITEde,*)  '  I,J,T' 
DO  31  I-1,NX 
DO  31  J-1,NY 
WRITE(16,*)  I,J,T(I,J) 
CONTINUE 
END  IF 


NX,  NY 


LOOP  OVER  ALL  CELLS 

NC  -  ILST  -  1 
NR  -  JLST  -  1 
10  DO  600  LY  *  JFST, NR 
DO  600  LX  -  IFST,NC 

CALL  WIDTH  (LX,  LY,  NX,NY,  XG,  YG,  T,  EL, Tl,  T2 ,  XX,  YY) 
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IF  (LBUG  .EQ.  1)  TBEN 
NRlTEde,*)  '  LX,LY»,LX,LY 
NRITEde,*)  '  Tl',  (Tl(l),  1-1,4) 

NRITEde,*)  »  T2',  {T2(I),I-1,4) 

HRITEde,*)  '  XX',  (XX (I),  1-1,4) 

MRITEde,*)  '  YY',  (YY{1), 1-1,4) 

WRITEde,*)  '  EL',  (EL(1),  1-1,4) 

END  IF 
C 

K1  -  1 
K2  -  2 

DO  350  1-1,4 
C 

CALL  POTEN(Tld)  ,T2(I),ELd),P,PINC,NCNTRS,TPd,l),DELd,I)  ,  JX) 
C 

IF  (LBUG.EQ.l)  THEN 

WRITE (16,*)  '  SIDE', I,'  TP' 

WRITE (16,*)  (TP(JPX,1), JPX-1,NCNTRS) 

END  IF 
C 

NL(I)  -  JX 

IF  (JX.EQ.O)  GO  TO  325 
DX  -  XX (K2)  -  XX(Kl) 

DY  -  YY(K2)  -  YY(Kl) 

C 

IF  (LBUG.EQ.l)  THEN 

WRITE  (16,*)  '  K1  K2  DX  DY' ,K1,K2,DX,DY 
END  IF 
C 

DO  300  J  -  1,JX 

XS(J, I)  -  XX(Kl)  +  DX*DEL(J,I)/EL(I) 

YS(J, I)  -  YY(Kl)  ♦  DY*DEL(J,I)/EL(I) 

300  CONTINUE 
C 

IF  (LBUG.EQ.l)  THEN 

WRITE(16,*)  '  JX',JX 

WRITE (16,*)  '  XS', (XS(J,1),J-1,JX) 

WRITE(16,*)  '  YS', (YS(J,I),J-1, JX) 

END  IF 
C 

325  CONTINUE 
C 

K1  -  K1  +  1 

K2  -  K2  +  1 

IF  (K2.GT.4)  K2  -  1 
C 

350  CONTINUE 
IX  -  2 

JX  -  NL(1) 

1  CONTINUE 

IF  (JX.EQ.O)  GO  TO  8 
II  -  IX  -  1 
C 

DO  470  I  -  IX, 4 
DO  450  J  -  1,JX 
KX  -  NL(I) 

IF  (IX.EQ.O)  GO  TO  450 

DO  400  K  -  1,KX 

TST  -  ABS(TP(J,11)  -  TP(K,I)) 

IF(TST.GT.TOL)  GO  TO  400 
XCd)  -  XS(J,I1) 

XC(2)  -  XS(K,I) 

YC(1)  -  YS(J,I1) 

YC(2)  -  YS(K,I) 

C 


IF  (NSYM.EQ.l)  THEN 
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IF  (NSYMX.NE.O)  THEN 
XC(1)  -  2.*XPO  -  XC(1) 

XC(2)  -  2.*XPO  -  XC(2> 

ENDIF 

IF  (NSYMY.NE.O)  THEN 
YC(1)  -  2.*YPO  -  YC(1> 

YC{2)  -  2.*YPO  -  YC(2) 

ENDIF 

ENDIF 

C 

C  LINE  -  0  SOLID 

C  1  DOT 

C  2  DASH 

C  3  DOT-DASH 

C 

LINE  -  1 

DO  360  15  -  1,N5 

IF  (ABS(P5(I5)-TP(K,I))  .LT.  TOL)  LINE  -  0 
360  CONTINUE 

IF  (ABS(P(1)-TP(K,I) )  .LT.  TOL)  LINE  «■  2 
IF  (ABS(P(NCNTRS)-TP(K,I) )  .LT.  TOL)  LINE  -  0 
call  setlinestyle (line) 
call  moveabsP <xc (1) ,yc(l) ) 
call  polylineabs2 (xc,yC/2) 

400  CONTINUE 
450  CONTINUE 
470  CONTINUE 
8  CONTINUE 

JX  -  NL(IX) 

IX  -  IX  +  1 
IF  (IX.LE.4)  GO  TO  7 
600  CONTINUE 

NSYM  -  NSYM  +  1 

IF(NSYM.LT.2  .AND.  (NSYMX.NE.O  .OR.  NSYMY.NE.O))  GO  TO  10 
C 

700  CONTINUE 
c 

c  hold  plot  for  60  seconds  then  clear  screen 
c 

call  sleep (60) 
call  newframe 
c 

MSET  -  MSET  +  1 
C 

IF  (MSET.LE.NSETS)  GO  TO  1000 
C 

CLOSE (UNlT-10 , STATUS-' KEEP' ) 

CLOSE (DNlT-15, STATUS-' KEEP' ) 

CLOSE (DNIT-16, STATUS-'KEEP' ) 

CLOSE (UNIT-25, STATUS-'KEEP' ) 

C 

QA*************7£m4j{fj^xE  plotter*********** 

c 

c 

c  close  and  exit 

c 

call  CloseTempSeg ( ) 
call  Deselect Vwsur f (vsurf) 
call  TermlnateCore ( ) 
c 

END 

C 

^  «♦****♦«**  A  ***«*********«««*  4r  «*««*•*'*<***  A  ******#******«*«««*«***«*««  « 

C  SUBROUTINES 

o******************************************************************** 

c 
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SOBROtrriNE  WIDTH  ( X ,  J,  HX, MY,  X,  T,  T,  EL,  T1 ,  T2 ,  XX,  YY ) 

PARAMETER  (ID-500, JD-500) 

DIMENSION  X(NX) ,Y(Ny) ,T(IO, JD) ,EL(4) ,T1 (4) ,T2 (4) ,XX(4) ,  YY (4) 


C 

C 

C  (3) 

C  4  0 - 0  3 

C  II 

C  II 

C  II 

C  II 

C  (4)  I  I  (2) 

C  II 

C  II 

C  II 

C  II 

C  1  O - 0  2 

C  (1) 

C 

C  LENGTHS  OF  THE  SIDES 

C 

EL(1)  -  ABS(X(I+1)  -  X(I)) 

EL(3)  -  EL(1) 

EL(2)  -  ABS(Y(J+1)  -  Y{J)) 

EL(4)  -  EL(2) 

C 


C  THE  END  VALUES  FOR  EACH  SIDE 

C 

Tl(l)  -  T(I,J) 

T2(l)  -  T(I+1,J) 

Tl(2)  -  T2(l) 

T2(2)  -  T(I+1,J+1) 

Tl(3)  -  T2(2) 

T2(3)  -  T(I,J+1) 

Tl(4)  -  T2(3) 

T2(4)  -  Tl(l) 

C 

C  THE  END  POINT  COORDS  FOR  EACH  SIDE 

C 

XX(1)  -  X(I) 

XX(2)  -  X(I-M) 

XX<3)  -  XX(2) 

XX(4)  -  XX(1) 

YY(1)  -  Y(J) 

YY(2)  -  YY(1) 

YY(3)  -  Y(J+1) 

YY(4)  -  YY(3) 

C 

RETURN 

END 

C 

SUBROUTINE  POTEN<Tl,T2,EL,P,PINC,NP,T,X,NX) 
DIMENSION  P(1),T(1),X(1) 

C 

C  COMPUTE  RELATIVE  JJOCKTJOSS  OF  CONTOURS  ALONG  A  SIDE 
C 

J  -  1 

DT  -  T2  -  T1 
C 

IF  (T1.EQ.T2)  GO  TO  4 
IF  (T1.GT.T2)  GO  TO  1 
A  -  T1 
Z  -  T2 
60  TO  2 
A  -  T2 
2  -  T1 


1 
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2  DO  100  I  -  1,NP 

IF  (A.LT.P(I) )  GO  TO  3 
100  CONTINUE 
C 

GO  TO  6 

3  A  -  P(I) 

IF  (A.GT.Z)  GO  TO  6 
X(J)  -  EL*(A-T1)/DT 
T(J)  -  A 
J  -  J  +  1 
A  -  A  +  PINC/10. 

GO  TO  2 
C 

4  DO  200  I  -  1,NP 

IF  (Tl.EQ.P(I))  GO  TO  5 
200  CONTINUE 
C 

GO  TO  6 

5  X(J)  -  0.0 
T(J)  -  P(I) 

J  -  J  +  1 

C 

C  NX  -  NUM  OF  CONTOURS  PASSING  THROUGH  A  SIDE 

C 

6  NX  -  J  -  1 
C 

RETURN 

END 

C 

SUBROUTINE  STREAM (NX, NY,MODE, MSET,NSTRM, X, Y, TMAX, TMIN) 
PARAMETER  (ID-SOO, JD-500) 

DIMENSION  X(NX) , Y (NY) ,UG(ID, JD) ,VG(ID, JD) 

COMMON  T(ID, JD) ,R(ID, JD) ,0(ID, JD) ,V(ID, JD) 

C 

IF  (NSTRM.NE.l)  GOTO  100 
NSTRM  -  0 
C 

DO  40  J  -  1,NY 
READ(15,*)  (R(I,J),I-1,NX) 

40  CONTINUE 

DO  41  J  -  1,NY 
READ(15,*)  (U<I,J),I-1,NX) 

41  CONTINUE 

DO  42  J  -  l,Ny 
READllS,*)  {V(I,J),I-1,NX) 

42  CONTINUE 
C 

C  FIND  VELOCITIES  AT  CELL  GRID  POINTS 

C 

L  -  NX 
M  -  NY 
C 

C  CORNER  POINTS 

C 

OG(l,l)  -  U(2,l) 

VG(1,1)  -  V(l,2) 

OG(L,l)  -  0(L,1) 

VG(L,1)  -  V(L,2) 

UG(1,M)  -  U(2,M) 

VG(1,M)  -  V(1,M) 

OG(L,M)  -  U(L,M) 

VG(L,M)  -  V(L,M) 

C 

C  BOTTOM  «  TOP  POINTS 

C 


LI  -  L-1 
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DO  44  1  -  2, LI 

DG(I,1)  -  (U(I,1)  +  D(I+l,l))/2.0 
VG(I,1)  -  V(I,2) 

OG(I,M)  -  (U(I,M)  +  0(1+1, M))/2.0 
VG(I,M)  -  V(I,M) 

44  CONTINUE 
C 

C  LEFT  S  RIGHT  POINTS 

C 

Ml  -  M-1 

DO  46  J  -  2, Ml 
0G{1,J)  -  0(2, J) 

VG(1,J)  -  (V(1,J)  +  V(l, J+l))/2.0 
UG(L,J)  -  0(L,J) 

VG(L,J)  -  (V(L,J)  +  V(L,J+l))/2.0 
46  CONTINUE 
C 

C  INTERIOR  POINTS 

C 

DO  48  I  -  2, LI 
DO  48  J  -  2, Ml 

DG(I,J)  -  (0(1, J)  +  0(1+1, J))/2.0 
VGd.J)  -  (V(I,J)  +  V(I,  J+m /2.0 
48  CONTINUE 
C 

DO  50  J  -  1,NY 
DO  50  I  -  1,NX 
T(I,J)  -  0.0 
50  CONTINUE 
C 

C  AVG.  RH0*U  AND  RHO*V  ON  INTEGRATION  PATH 

C 

C  LEFT  BOUNDARY 

C 

DO  60  J  -  2, NY 

RU  -  (UG(1, J-1)*R(1,J-1)  +  0G(1,J)*R(1, J))/2.0 
IF  (MODE.EQ.l)  T(1,J)  -  T(1,J-1)  +  RU*(Y(J)  -  Y(J-l)) 

IF  (MODE.EQ.2)  T(1,J)  -  T(1,J-1)  - 
1  RD*(Y(J)**2  -  Y(J-l)**2)/2.0 

60  CONTINUE 
C 

C  BOTTOM  BOUNDARY 

C 

DO  62  I  -  2, NX 

RV  -  (VG(I-1,1)*R(I-1,1)  +  VG(I,l)*R(I,l))/2.0 
IF  (MODE.EQ.l)  T(I,1)  -  T(l-l,l)  -  RV*(X(I)  -  X(I-l)) 

IF  (MODE.EQ.2)  T(I,1)  -  0.0 
62  CONTINUE 
C 

C  REMAINING  POINTS 

C 

DO  64  J  -  2, NY 
DO  64  I  -  2, NX 

RU  -  (UG(I, J)*R(I,J)  +  OG(I, J-1)*R(I, J-1) )/2.0 
c 

c  remove  tt  stmt  so  only  y  integration  is  performed 

c 

c  RV  -  (VG(I-1,J-1)*R(I-1, J-1)  +  VG(I, J-1)*R(I, J-l))/2.0 

C 

IF  (MODE.EQ.l)  T(I,J)  -  T(I,J-1)  +  RU* (Y (J) -Y ( J-1) ) 
c 

c  remove  continuation  of  above  stmt  so  only  y  inteq.  is  done 

c 

c  :  -  RV*(X(I)-X(I-1)) 

C 

IF  (MODE.EQ.2)  T(I,J)  -  T(I,J-1)  -  RU* (Y ( J) **2-Y ( J-1) **2) /2 , 0 
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c 

64  CONTINUE 
C 

GOTO  110 
C 

100  DO  70  J  -  1,NY 

READ(15,*)  {T(I, J),I-1,NX) 

70  CONTINUE 
C 

110  CONTINUE 

TMAX  -  -1.E50 
TMIN  -  1.E50 

DO  80  J  -  1,NY 
DO  80  1  -  1,NX 

1F(TMAX.LE.T(I, J) )  TMAX  -  T(I,J) 

IF(TMIN.GE.T(I, J) )  TMIN  -  T(I,J) 

80  CONTINUE 
C 

RETURN 

END 

c 

siibrout ine  coords  <nx,  ny ,  x,  y /  nb,  np, xb,  yb,  xo,  yo,  nsyitix,  nsymy , 

:  xpo,ypo,size,xg,yg,iinag,ifs,ils,  jfs,  jls) 

dimension  x (1) , y (1) ,xg(l) ,yg(l) ,np(l) , xb(21, 60) ,yb(21, 60) , 
;  xbd{21) ,ybd(21) 

c 

c  xo  &  yo  origin 

c  plot  window  is  size  by  size 

c 

if  (imag.eq.O)  then 
ifs  -  1 
ils  ■■  nx 
jfs  -  1 
jls  -  ny 
endif 

sea  -  x(ils)  -  x(ifs) 

scay  -  y(jls)  -  y(jfs) 

xpo  -  xo 

ypo  ••  yo 

xbo  -  x(lfs) 

ybo  -  y(jfs) 

if  (nsymx.eq.l)  sea  ••  2.0*sca 
if  (nsymy. eq.l)  scay  -  2.0*scay 
if  (sca.lt .scay)  sea  -  scay 
if  (nsymx.eq.l)  xpo  -  xo  +  size/2.0 
if  (nsymy. eq.l)  ypo  -  yo  +  size/2.0 
do  10  i  «  l,nx 

xg(i)  -  (x(i)  -  x(lfs) )*size/sca  +  xpo 

10  continue 

do  11  j  -  l,ny 

y9<j)  "  <y(j)  -  y  ( jfs)  >-*size/sca  +  ypo 

11  continue 

do  14  j  -  l,nb 
ip  -  np(j) 
nsym  -  0 

12  do  13  i  -  l,ip 

xbd(l)  -  (xb(l,j)  -  xbo) *slze/sca  +  xpo 
ybd(i)  -  (yb(l,j)  -  ybo) *slze/sca  +  ypo 
IF  (NSYM.EQ.l)  THEN 
IF  (NSYMX.NE.O)  THEN 
XBD(I)  -  2.*XPO  -  XBD(I) 

ENDIF 

IF  (NSYMY.NE.O)  THEN 
YBD(I)  -  2.*YPO  -  YBD(I) 

ENDIF 

ENDIF 
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13  CONTINUE 

nsym  »  nsym  +  1 

call  moveabs2  (xbdd)  ,ybd(l) ) 
call  polyllneabs2(xb<l,yb<l,  ip) 
if (nsym. It . 2  .and.  (nsymx.ne.O  .or.  nsymy.ne.O))  go  to  12 

14  continue 
return 
end 

subroutine  label (x, y, sv) 
character  *(*)  sv 
call  moveabs2 (X, y) 
call  text(sv) 
return 
end 
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